RE: exceeding max. number of INPUT-variables
From: "Serge Guzy"
Subject: RE: [NMusers] exceeding max. number of INPUT-variables
Date: Wed, 24 Aug 2005 08:47:41 -0700
I think that your subroutine get subs contained errors.
I debugged it and here the one that can be built.
Hope this helps
Serge Guzy
President POP_PHARM
SUBROUTINE READER()
COMMON /READ/ TID,TCOV
REAL TID(139),TCOV(139,15)
OPEN(UNIT = 77,FILE = 'DATA.PRN')
REWIND 77
DO 11,I = 1,139
READ(77,*) TID(I),TCOV(I,1), TCOV(I,2), TCOV(I,3), TCOV(I,4),
1 TCOV(I,5), TCOV(I,6), TCOV(I,7), TCOV(I,8), TCOV(I,9),
1 TCOV(I,10), TCOV(I,11), TCOV(I,12), TCOV(I,13), TCOV(I,14),
1 TCOV(I,15), TCOV(I,16)
11 CONTINUE
END
SUBROUTINE GET_SUB(NEWIND,ID,CURID,COV1,COV2,COV3,COV4,COV5,
1 COV6,COV7,COV8,COV9,COV10,COV11,COV12,COV13,COV14,COV15,
1 COV16,MID)
COMMON /READ/ TID,TCOV
REAL ID,CURID,COV1,COV2,COV3,COV4,COV5,COV6,COV7,COV8,COV9,
1 COV10,COV11,COV12,COV13,COV14,COV15,COV16,MID
INTEGER NEWIND
REAL TID(139),TCOV(139,15)
IF (NEWIND.EQ.1) THEN
CURID=1
12 CONTINUE
IF(ID.GT.TID(CURID)) THEN
CURID =CURID + 1
GOTO 12
END IF
ELSEIF(NEWIND.EQ.0) THEN
CURID = 1
END IF
COV1 = TCOV(CURID,1)
COV2 = TCOV(CURID,2)
COV3 = TCOV(CURID,3)
COV4 = TCOV(CURID,4)
COV5 = TCOV(CURID,5)
COV6 = TCOV(CURID,6)
COV7 = TCOV(CURID,7)
COV8 = TCOV(CURID,8)
COV9 = TCOV(CURID,9)
COV10 = TCOV(CURID,10)
COV11 = TCOV(CURID,11)
COV12 = TCOV(CURID,12)
COV13 = TCOV(CURID,13)
COV14 = TCOV(CURID,14)
COV15 = TCOV(CURID,15)
COV16 = TCOV(CURID,16)
MID = TID(CURID)
END