SUBROUTINE CWRITEMD(OUTDEV,STARTSTR,ARRAY,ICC,IGG) C Write the current model to output device OUTDEV INCLUDE 'BINFIT.INC' REAL*8 ARRAY(MXMOD,MXFILT,8) INTEGER*4 OUTDEV, ICC, IGG CHARACTER*1 STARTSTR, BLANK DATA BLANK /' '/ D WRITE(OUTC,'(A,I2,A,A)') D 1 ' CWRITEMD: OUTDEV = ',OUTDEV,'; STARTSTR = ',STARTSTR C Write one line of model to screen IF (ICC.NE.0 .AND. IGG.NE.0) THEN IF (ICC.EQ.1 .AND. IGG.EQ.1) THEN WRITE(OUTDEV,1130) STARTSTR,ICC,LAMBDA0(IGG), 1 ARRAY(ICC,IGG,1),BLANK, 2 ARRAY(ICC,IGG,2),BLANK, 3 ARRAY(ICC,IGG,3),BLANK, 7 ARRAY(ICC,IGG,7), 8 ARRAY(ICC,IGG,8),BLANK ELSE IF(ICC.EQ.1 .AND. IGG.NE.1) THEN WRITE(OUTDEV,1131) STARTSTR,ICC,LAMBDA0(IGG), 4 ARRAY(ICC,IGG,4),BLANK, 7 ARRAY(ICC,IGG,7), 8 ARRAY(ICC,IGG,8),BLANK ELSE IF(ICC.NE.1 .AND. IGG.EQ.1) THEN WRITE(OUTDEV,1132) STARTSTR,ICC,LAMBDA0(IGG), 1 ARRAY(ICC,IGG,1),BLANK, 2 ARRAY(ICC,IGG,2),BLANK, 3 ARRAY(ICC,IGG,3),BLANK, 5 ARRAY(ICC,IGG,5),BLANK, 7 ARRAY(ICC,IGG,7) ELSE IF(ICC.NE.1 .AND. IGG.NE.1) THEN WRITE(OUTDEV,1133) STARTSTR,ICC,LAMBDA0(IGG), 4 ARRAY(ICC,IGG,4),BLANK, 5 ARRAY(ICC,IGG,5), 6 ARRAY(ICC,IGG,6),BLANK, 7 ARRAY(ICC,IGG,7) END IF C Write whole model to screen or file ELSE IF (OUTDEV.EQ.OUTC) THEN STARTSTR = ' ' CALL WRITEHD(OUTDEV,STARTSTR) C WRITE(OUTDEV,1050) STARTSTR C WRITE(OUTDEV,1051) STARTSTR ELSE WRITE(OUTDEV,1050) '!' WRITE(OUTDEV,1051) '!' END IF IF( (OUTDEV.NE.INMOD) .OR. 1 (OUTDEV.EQ.INMOD .AND. STARTSTR.EQ.'!') ) THEN DO IC = 1, NCOMP DO IG = 1, NFILT IF (IC.EQ.1 .AND. IG.EQ.1) THEN WRITE(OUTDEV,1130) STARTSTR,IC,LAMBDA0(IG), 1 ARRAY(IC,IG,1),FLAG(IC,IG,1), 2 ARRAY(IC,IG,2),FLAG(IC,IG,2), 3 ARRAY(IC,IG,3),FLAG(IC,IG,3), 7 ARRAY(IC,IG,7), 8 ARRAY(IC,IG,8),FLAG(IC,IG,8) ELSE IF(IC.EQ.1 .AND. IG.NE.1) THEN WRITE(OUTDEV,1131) STARTSTR,IC,LAMBDA0(IG), 4 ARRAY(IC,IG,4),FLAG(IC,IG,4), 7 ARRAY(IC,IG,7), 8 ARRAY(IC,IG,8),FLAG(IC,IG,8) ELSE IF(IC.NE.1 .AND. IG.EQ.1) THEN WRITE(OUTDEV,1132) STARTSTR,IC,LAMBDA0(IG), 1 ARRAY(IC,IG,1),FLAG(IC,IG,1), 2 ARRAY(IC,IG,2),FLAG(IC,IG,2), 3 ARRAY(IC,IG,3),FLAG(IC,IG,3), 5 ARRAY(IC,IG,5),FLAG(IC,IG,5), 7 ARRAY(IC,IG,7) ELSE IF(IC.NE.1 .AND. IG.NE.1) THEN WRITE(OUTDEV,1133) STARTSTR,IC,LAMBDA0(IG), 4 ARRAY(IC,IG,4),FLAG(IC,IG,4), 5 ARRAY(IC,IG,5), 6 ARRAY(IC,IG,6),FLAG(IC,IG,6), 7 ARRAY(IC,IG,7) END IF END DO END DO ELSE IF (OUTDEV.EQ.INMOD .AND. STARTSTR.EQ.' ') THEN D WRITE(OUTC,*) ' CWRITEMD: Last of the cases' DO IC = 1, NCOMP DO IG = 1, NFILT IF (IC.EQ.1 .AND. IG.EQ.1) THEN WRITE(OUTDEV,1140) STARTSTR,IC,LAMBDA0(IG), 1 ARRAY(IC,IG,1),BLANK, 2 ARRAY(IC,IG,2),BLANK, 3 ARRAY(IC,IG,3),BLANK, 7 ARRAY(IC,IG,7), 8 ARRAY(IC,IG,8),BLANK ELSE IF(IC.EQ.1 .AND. IG.NE.1) THEN WRITE(OUTDEV,1141) STARTSTR,IC,LAMBDA0(IG), 4 ARRAY(IC,IG,4),BLANK, 7 ARRAY(IC,IG,7), 8 ARRAY(IC,IG,8),BLANK ELSE IF(IC.NE.1 .AND. IG.EQ.1) THEN WRITE(OUTDEV,1142) STARTSTR,IC,LAMBDA0(IG), 1 ARRAY(IC,IG,1),BLANK, 2 ARRAY(IC,IG,2),BLANK, 3 ARRAY(IC,IG,3),BLANK, 5 ARRAY(IC,IG,5),BLANK, 7 ARRAY(IC,IG,7) ELSE IF(IC.NE.1 .AND. IG.NE.1) THEN WRITE(OUTDEV,1143) STARTSTR,IC,LAMBDA0(IG), 4 ARRAY(IC,IG,4),BLANK, 5 ARRAY(IC,IG,5), 6 ARRAY(IC,IG,6),BLANK, 7 ARRAY(IC,IG,7) END IF END DO END DO END IF END IF 1050 FORMAT (A,'# Lambda Separa- Pos. Ang. Diam. Diam. Mag. ', 1 'Color (Rel.) Total') 1051 FORMAT (A,' (nm) tion(mas) (deg) (mas) Ratio Diff. ', 1 ' (Flux) Flux') c1130 FORMAT (A,I2,1X,F4.0,1X,F7.3,A,1X,F8.3,A,1X,F5.2,A,25X, c 1 '(',F6.3,')',1X,F6.3,A) c1131 FORMAT (A,I2,1X,F4.0,1X,26X,F5.3,A,18X, c 1 '(',F6.3,')',1X,F6.3,A) c1132 FORMAT (A,I2,1X,F4.0,1X,F7.3,A,1X,F8.3,A,1X,F5.2,A,9X,F6.3,A,9X, c 1 '(',F6.3,')') c1133 FORMAT (A,I2,1X,F4.0,1X,26X,F5.3,A,1X,'(',F6.3,')',1X,F6.3,A,1X, c 1 '(',F6.3,')') c c1140 FORMAT (A,I2,1X,F4.0,1X,F7.3,A,1X,F8.3,A,1X,F5.2,A,25X, c 1 ' ',F6.3,' ',1X,F6.3,A) c1141 FORMAT (A,I2,1X,F4.0,1X,26X,F5.3,A,18X, c 1 ' ',F6.3,' ',1X,F6.3,A) c1142 FORMAT (A,I2,1X,F4.0,1X,F7.3,A,1X,F8.3,A,1X,F5.2,A,9X,F6.3,A,9X, c 1 ' ',F6.3,' ') c1143 FORMAT (A,I2,1X,F4.0,1X,26X,F5.3,A,1X,' ',F6.3,' ',1X,F6.3,A,1X, c 1 ' ',F6.3,' ') 1130 FORMAT (A,I1,1X,F5.1,1X,F7.3,A,1X,F8.3,A,1X,F5.2,A,25X, 1 '(',F6.3,')',1X,F6.3,A) 1131 FORMAT (A,I1,1X,F5.1,1X,26X,F5.3,A,18X, 1 '(',F6.3,')',1X,F6.3,A) 1132 FORMAT (A,I1,1X,F5.1,1X,F7.3,A,1X,F8.3,A,1X,F5.2,A,9X,F6.3,A,9X, 1 '(',F6.3,')') 1133 FORMAT (A,I1,1X,F5.1,1X,26X,F5.3,A,1X,'(',F6.3,')',1X,F6.3,A,1X, 1 '(',F6.3,')') 1140 FORMAT (A,I1,1X,F5.1,1X,F7.3,A,1X,F8.3,A,1X,F5.2,A,25X, 1 ' ',F6.3,' ',1X,F6.3,A) 1141 FORMAT (A,I1,1X,F5.1,1X,26X,F5.3,A,18X, 1 ' ',F6.3,' ',1X,F6.3,A) 1142 FORMAT (A,I1,1X,F5.1,1X,F7.3,A,1X,F8.3,A,1X,F5.2,A,9X,F6.3,A,9X, 1 ' ',F6.3,' ') 1143 FORMAT (A,I1,1X,F5.1,1X,26X,F5.3,A,1X,' ',F6.3,' ',1X,F6.3,A,1X, 1 ' ',F6.3,' ') C Ruler lines: C!# Lambda Separa- Pos. Ang. Diam. Diam. Mag. Color (Rel.) Total' C! (nm) tion(mas) (deg) (mas) Ratio Diff. (Flux) Flux' C! 1 800. 10.210v -212.009v 3.22v ( 0.988) 1.022v C! 1 450. 1.052v 0.709v ( 0.988) 1.022v C! 2 800. 10.210v -212.009v 3.22v -0.131v ( 0.122) C! 2 450. 1.052v (-0.131) 0.709v ( 0.122) C!II.LLL..+SS.SSSf.+PAP.PAPf.+D.DIf.+.DRDf.(+D.DMAf.+C.COLf.(+F.FLU).+F.TOTf c!ii lll. +ss.sssf +pap.papf +d.dif1234567890123456789012345(+f.flu) +f.totf c!ii lll. 12345678901234567890123456+.drdf123456789(+c.col) (+f.flu) +f.totf c!ii lll. +ss.sssf +pap.papf +d.dif123456789+d.dmaf123456789(+f.flu) c!ii lll. 12345678901234567890123456+.drdf (+d.dma) +c.colf (+f.flu) RETURN END