problem when reading source from a file

From: ±ΟΤΆ½ά <biyuanjie_at_tsinghua.org.cn>
Date: Wed, 30 Jun 2010 10:30:43 +0800 (CST)

Dear everyone

I read in the source from a file which includes 1e6 particles.
I do the following in source.f :

* | *** User initialization ***
        OPEN(98,FILE='../loss.txt',STATUS='OLD',FORM='FORMATTED')
        READ(98,*) X,Y,Z,PX,PY,PZ
*
...................

*... to this point: don't change anything
      XBEAM=X/10
      
      YBEAM=Y/10
      
      ZBEAM=Z/10

      
      UBEAM=PX/SQRT(PX*PX+PY*PY+PZ*PZ)
      
      VBEAM=PY/SQRT(PX*PX+PY*PY+PZ*PZ)
      
      WBEAM=PZ/SQRT(PX*PX+PY*PY+PZ*PZ)

      
      PBEAM=SQRT(PX*PX+PY*PY+PZ*PZ)* AM (IONID)
      
Now the question is:
Everytime when calling source.f, only the first line in loss.txt is readed in.
How could I solve it?
Thanks very much!

Best wishes
Yuanjie
      
      
Received on Thu Jul 01 2010 - 00:17:35 CEST

This archive was generated by hypermail 2.2.0 : Thu Jul 01 2010 - 00:18:05 CEST