SUBROUTINE TRMODMENUITEM(LANG,ITEM) !DEC$ ATTRIBUTES DLLEXPORT :: TRMODMENUITEM CHARACTER*(*) ITEM ITEM(1:12)="~쐬(&U)"; RETURN END SUBROUTINE TRMODMODWORK(PMAX,PMIN,WPITCH,IMAX,JMAX,TOP,CTOP, & NTOP,IRC) !DEC$ ATTRIBUTES DLLEXPORT :: TRMODMODWORK DOUBLE PRECISION PMAX(3),PMIN(3),WPITCH INTEGER IMAX,JMAX,NTOP(*),IRC REAL*4 TOP(*) CHARACTER*1 CTOP(*) INTEGER I,J DOUBLE PRECISION DX,DY,CR,MIDX,MIDY MIDX=(PMAX(1)+PMIN(1))/2.0 MIDY=(PMAX(2)+PMIN(2))/2.0 CR=MAX((PMAX(1)-PMIN(1))/2.0,(PMAX(2)-PMIN(2))/2.0) DO 10 J=1,JMAX DY=DABS(PMIN(2)+WPITCH*(J-1)-MIDY); DO 20 I=1,IMAX DX=DABS(PMIN(1)+WPITCH*(I-1)-MIDX); IF( DSQRT(DX*DX+DY*DY) > CR ) TOP(IMAX*(J-1)+I)=PMIN(3) 20 CONTINUE 10 CONTINUE IRC=1 RETURN END