PROGRAM EXA_8 C USE DISLIN for Fortran 90! DIMENSION IXP(4),IYP(4),IX(4),IY(4) CHARACTER*60 CTIT,CSTR*2 DATA IX/0,300,300,0/IY/0,0,400,400/ CTIT='Shading Patterns (AREAF)' CALL DISINI CALL PAGERA CALL COMPLX CALL HEIGHT(50) NL=NLMESS(CTIT) NX=(2970-NL)/2 CALL MESSAG(CTIT,NX,200) NX0=335 NY0=350 DO I=1,3 NY=NY0+(I-1)*600 DO J=1,6 NX=NX0+(J-1)*400 II=(I-1)*6+J-1 CALL SHDPAT(II) WRITE(CSTR,'(I2)') II DO K=1,4 IXP(K)=IX(K)+NX IYP(K)=IY(K)+NY END DO CALL AREAF(IXP,IYP,4) NL=NLMESS(CSTR) NX=NX+(300-NL)/2 CALL MESSAG(CSTR,NX,NY+460) END DO END DO CALL DISFIN END
Figure B.8: Shading Patterns