SUBROUTINE CUTSAV C C THIS SUBROUTINE SAVES CUTS + HIST SCALES C THE FILE NAME IS TAKEN FROM HIST #0, WHICH CONTAINS RUN TITLE C C THE FILE IS STORED ON SY: UNDER NAME.SAV C BYTE IC(20),IEXT(4) PARAMETER ISIZA=24 COMMON /SCRAT/ IA(8),IC,A(ISIZA),ICUTS,IHIST,IX,IY,CRUD CALL ASSSAV ! SET UP FILE NAME CALL HSTAT(0,IX,IHIST) ! GET NUMBER OF HISTS CALL MGETF(0,ICUTS,CRUD) ! Get the number of markers WRITE(4,*)IRUN,ICUTS,IHIST IF(ICUTS .EQ. 0) GO TO 51 ! NO CUTS TO SAVE DO 50 I = 1,ICUTS,ISIZA MAX = ICUTS - I + 1 IF(MAX .GT. ISIZA)MAX = ISIZA DO 40 J = 1,MAX 40 CALL MGETA(I+J-1,ICRUD,A(J)) ! GET CUT VALUES 50 WRITE(4,*)(A(J),J=1,MAX) ! WRITE CUT VALUES 51 DO 100 I = 1,IHIST CALL HSTAT(I,IX,IY,IA(1),IA(2),IA(3),IA(4)) ! GET HIST SCALLES IF(IX .LE. 0) GO TO 100 ! IF NO HIST DO NOT WRITE WRITE(4,*)I,(IA(J),J=1,4) ! WRITE HIST # + SCALES 100 CONTINUE CALL CLOSE(4) ! CLOSE THE DATA FILE END