Re: Filing

From: mark.e.sale@gsk.com Subject: Re: [NMusers] Filing Date: 10/22/2003 9:43 AM One other issue of thetas, these are documented in ROCM6 as below COMMON /ROCM6/ THETAF(40),OMEGAF(30,30),SIGMAF(30,30) DOUBLE PRECISION THETAF,OMEGAF,SIGMAF and can be written to a file like this: WRITE(44,'(A5)') 'THETA' DO 27 I = 1,NTHETA WRITE(44,45) THETAF(I) 27 CONTINUE 45 FORMAT (E16.7) Similarly if you want OMEGA DO 50 I = 1,NETA DO 49 N = 1,NETA WRITE(44,60) OMEGAF(I,N) 49 CONTINUE WRITE(44,'(A2)') ' ' 50 CONTINUE 60 FORMAT (30E16.7,$) Again, this code is for the G77 compiler, some of the formats are different for digital/compaq. As for keeping track of them, obviously this needs to be done by software, not by hand. And we would of course recommend grid computing for this. Mark