Fortran 设置Format输出

      open(UNIT=25,FILE='C:\Users\Lenovo\Desktop\file_out\
     1STATEV.dat',STATUS='OLD',ACTION='WRITE',
     2POSITION='APPEND')     
      write(25,32) TIME(1), STATEV,STRESS,STRIAL,FACTOR*R2G,PHI,
     1P,Pt,SQRJ2,SQRJ2T,DGAMA
C    标号区     
  32  FORMAT("Time=",f16.4,/,"elastic strain: ",6f16.6,/,"plastic 
     1strain: ",6f16.6,/,"accumulated plastic strain: ",f16.6,/,
     2"Stress: ",6f16.6,/,"STRIAL: ",6f16.6,/,"FACTOR: ",f16.6,/,
     3"PHI: ",f20.6,/,"P: ",f20.6,/,"Pt: ",f20.6,/,"SQRJ2: ",f20.6,
     4/,"SQRJ2T: ",f20.6,/,"DGAMA: ",f20.6,/)     
      close(UNIT=25)