CHARACTER*6 SYS_Label
DO I=1,7
IF(I==1)SYS_Label="ArTlF"
IF(I==2)SYS_Label="ArN2"
IF(I==3)SYS_Label="ArF2"
IF(I==4)SYS_Label="ArCl2"
IF(I==5)SYS_Label="ArBr2"
IF(I==6)SYS_Label="ArI2"
IF(I==7)SYS_Label="Sampl"

OPEN(Unit=5,File="D:\Input_Data\BodyFixedSudden\BodyFix_Data_"//TRIM(SYS_Label)//".txt")
OPEN(Unit=6,File="E:\ParkerE\BodyFixedSudden\Output\BodyFixedSudden_"//TRIM(SYS_Label)//".out.txt")
OPEN(Unit=8,File="E:\ParkerE\BodyFixedSudden\Output\BodyFixedSudden_"//TRIM(SYS_Label)//".graph.csv")
OPEN(Unit=9,File="E:\ParkerE\BodyFixedSudden\Output\BodyFixedSudden_"//TRIM(SYS_Label)//"_SIG.graph.csv")

call bodfix
ENDDO
stop
end