Lines Matching refs:LUW4

581                  IF (.NOT.DELEMO) WRITE (LUW4,'(//A/A/A,1P,D10.2)')
586                  WRITE (LUW4,'(/A,I4,A,I5/A/,(1P,5D10.2))')
607                    IF (.NOT.DELEMO) WRITE (LUW4,'(//A/A/A,1P,D10.2)')
613                    WRITE (LUW4,'(/A,I4,A,I5/A/,(1P,5D10.2))')
617                    WRITE (LUW4,'(/A,1P,2D10.2)')
807             WRITE(LUW4,4010) ISYM, IRETUR
808             IF (LUPRI.NE.LUW4) WRITE(LUPRI,4010) ISYM, IRETUR
846       IF (P4FLAG(12) .AND. ( LUW4.NE.LUPRI .OR. .NOT.P6FLAG(6) )) THEN
848             WRITE(LUW4,1000)
850             WRITE(LUW4,1010)
852          CALL PRORB(CMO,.TRUE.,LUW4)
874          WRITE(LUW4 ,3010) CMAX,ISYM,IORBI,NORBI,CMAXMO
875          IF (LUPRI.NE.LUW4)
879       WRITE (LUW4,3020)
880       IF (LUPRI.NE.LUW4) WRITE(LUPRI,3020)