Dear all,
the formatted output i posted in the previous email is the result of
IF((JTRACK.EQ.-6.OR.JTRACK.EQ.-2).AND.(MREG.EQ.4)) THEN
WRITE (49,*) NCASE, JTRACK,NTRACK,
& ( SNGL (XTRACK (I)),SNGL (YTRACK (I)), SNGL (ZTRACK (I)),
& I = 0, NTRACK ),( SNGL (DTRACK (I)), I = 1,MTRACK )
END IF
not of
IF((JTRACK.EQ.-6.OR.JTRACK.EQ.-2).AND.(MREG.EQ.4)) THEN
WRITE (49,*) NCASE, JTRACK,
& ( SNGL (XTRACK (I)),SNGL (YTRACK (I)), SNGL (ZTRACK (I)),
& I = 0, NTRACK ),( SNGL (DTRACK (I)), I = 1,MTRACK )
END IF
Sorry for the mistake,
regards,
bye,
Francesca
Received on Tue Apr 03 2012 - 10:55:36 CEST
This archive was generated by hypermail 2.2.0 : Tue Apr 03 2012 - 10:55:36 CEST