Group: comp.lang.fortran · Group Profile · Search for Image And Writings in comp.lang.fortran
Author: Edward N Bromhead
Date: May 1, 2007 12:22
... (10,FILE='TEST.LOG',STATUS='UNKNOWN') DO I=1,10000,100 i4PCXWidth=I i4PCXHeight=i4PCXWidth*0.75 i4Err=CREATE_GRAPHICS_REGION@(i4PCXHandle,i4PCXWidth, i4PCXHeight) ! Setup image area WRITE (10,*)I, i4Err i4Err=Delete_Graphics_Region@(i4PCXHandle) ENDDO CLOSE (10) END
|