Skip to content
Snippets Groups Projects
Commit 56477cff authored by Hans Rabus's avatar Hans Rabus
Browse files

Upload New File

parent 323421e2
Branches
No related tags found
1 merge request!1Add new directory
PROGRAM outsiders
CHARACTER FNAME*80, FILENO*2, TRIM, ADJUSTL
DO I=0,27
WRITE(*,'(i2,$)') I
WRITE(FILENO,'(i2)') I
FILENO=ADJUSTL(FILENO)
FNAME='More_Ionizations_F_ExtractionScoringPlane_t'
& //TRIM(FILENO)//'.csv'
OPEN(11,FILE=FNAME,STATUS='OLD')
OPEN(12,FILE='HITSI2.dat',STATUS='UNKNOWN')
READ(11,*) IEV,X,Y,Z,IZ,MA,E
IEV0=IEV
NEV=1
DO WHILE(IEV.EQ.IEV0)
READ(11,*,END=20) IEV,X,Y,Z,IZ,M,E
IF(IEV.NE.IEV0) THEN
WRITE(12,'(I9,3F9.3,I3,F12.3)') IEV0,XC,YC,ZC,MC,EC
IEV0=IEV
NEV=NEV+1
IF(MOD(NEV,500).EQ.0) WRITE(*,'(1H.,a,$)') ''
ENDIF
IF(IZ.EQ.6) THEN
XC=X
YC=Y
ZC=Z
EC=E
MC=M
END IF
END DO
20 CONTINUE
WRITE(12,'(I9,3F9.3,I3,F12.3)') IEV0,XC,YC,ZC,MC,EC
CLOSE(11)
WRITE(*,*)
END DO
CLOSE(12)
END
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment