From: Hutmacher, Matt mhutmach@amgen.com 
Subject: [NMusers] Trouble with Verbatim code
Date: Thu, April 8, 2004 1:52 pm 

Hello,

When I try to insert this code,
"FIRST 
" COMMON /PRCOMG/ IDUM1,IDUM2,IMAX,IDUM4,IDUM5 
" INTEGER IDUM1,IDUM2,IMAX,IDUM4,IDUM5 
" IMAX=1000000 
into my $PK block I get the following error:
fsubs.for(92) : Error: Syntax error, found '**' when expecting one of: ( *
    ...
      DIMENSION COM(****)
--------------------^
fsubs.for(93) : Error: This EQUIVALENCE object must be an array.   [COM]
      EQUIVALENCE(KA,COM(1))
---------------------^
No nonmem execution.

I would appreciate any help on insight on this.  Thanks!

Matt Hutmacher
805.447.7473
 

_______________________________________________________

From: Nick Holford n.holford@auckland.ac.nz
Subject: RE: [NMusers] Trouble with Verbatim code
Date: Thu, April 8, 2004 6:41 pm  


Matt,

The error message suggests you have stumbled on one of the NM-TRAN bugs involved in
emitting code for FSUBS. Have you applied the NM-TRAN bug fixes that were recently
listed on nmusers? The following patch to GENCOM looks like it might do the trick.

C Suggested by Stu Beal July 2002
C Fixes bug for emitting DIMENSION COM code
C       WRITE(LINE,'(A,I4.4,A)') 'DIMENSION COM(',COMMAX,')'
C       LL=19
       WRITE(LINE,'(A,I6.6,A)') 'DIMENSION COM(',COMMAX,')'
       LL=21

Nick
--
Nick Holford, Dept Pharmacology & Clinical Pharmacology
University of Auckland, 85 Park Rd, Private Bag 92019, Auckland, New Zealand
email:n.holford@auckland.ac.nz tel:+64(9)373-7599x86730 fax:373-7556
http://www.health.auckland.ac.nz/pharmacology/staff/nholford/


 

_______________________________________________________