Warning: NMTRAN does not interpret conditional abbreviated code properly
From: Nick Holford <n.holford@auckland.ac.nz>
Subject: Warning: NMTRAN does not interpret conditional abbreviated code properly
Date: Sun, 27 Aug 2000 10:10:15 +1200
Hi,
The following fragment from an NMTRAN control stream has "DOSCAS=0.0 ;set doscas=0 for all RX.NE.1" as the first statement in the first IF_THEN_ELSE block. This statement is not copied to the FSUBS Fortran source created by NMTRAN which means that DOSCAS is not initialized properly when RX.NE.1.
This failure to copy parts of nested conditional statements suggests care is needed when using conditional statements, particularly nested ones with NMTRAN abbreviated code. Do not assume that statements that are not within the innermost IF THEN ELSE blocks are properly or entirely copied by NMTRAN.
NMTRAN Control Stream
IF (RX.EQ.1) THEN
TVBA=THETA(3)
F0ST=THETA(14)
DOSCAS=1.0
ELSE
DOSCAS=0.0 ;set doscas=0 for all RX.NE.1
IF (RX.EQ.2) THEN
TVBA=THETA(4)
F0ST=THETA(15)
ELSE
IF (RX.EQ.3) THEN
TVBA=THETA(5)
F0ST=THETA(16)
ELSE
TVBA=THETA(6)
F0ST=THETA(17)
ENDIF
ENDIF
ENDIF
FSUBS Generated by NMTRAN. No value assigned to DOSCAS if RX.NE.1
IF(RX.EQ.1.D0)THEN
TVBA=THETA(03)
F0ST=THETA(14)
DOSCAS=1.D0
ELSE
IF(RX.EQ.2.D0)THEN
TVBA=THETA(04)
F0ST=THETA(15)
ELSE
IF(RX.EQ.3.D0)THEN
TVBA=THETA(05)
F0ST=THETA(16)
ELSE
TVBA=THETA(06)
F0ST=THETA(17)
ENDIF
ENDIF
ENDIF
--
Nick Holford, Dept Pharmacology & Clinical Pharmacology
University of Auckland, Private Bag 92019, Auckland, New Zealand
email:n.holford@auckland.ac.nz tel:+64(9)373-7599x6730 fax:373-7556
http://www.phm.auckland.ac.nz/Staff/NHolford/nholford.htm