Quantcast
Channel: Intel® Fortran Composer XE
Viewing all articles
Browse latest Browse all 1424

Start a new page in the printout?

$
0
0

Sorry for another stupid question, but I am using FORTRAN-Winprint to print to my windows printer and I've got it working.  I wanted to got to the top of a new page after a write statement and for the life of me I can't remember how to do it.

In the old days with carriage control a 1 in column 1 would do the trick but I am at a loss to remember how to do it. I posted below a piece of my old FORTRAN code that designs base plates and I wanted to start a new page for the next bolt in my do loop.

 

C WRITE(*,236)

WRITE(2,236)

236 FORMAT(2X,'BOLT',/2X,'NUMBER',3X,'X COORD',3X,'Y COORD',5X,'LOAD'

+ ,5X,'RADIAL DIST',5X,'ANGLE FROM X AXIS'/)

DO 260 I=1,ITOT

C WRITE(*,237)I,POS(1,I),POS(2,I),BLOAD(I),DIS(I),RTD(ANGLE(I))

260 WRITE(2,237)I,POS(1,I),POS(2,I),BLOAD(I),DIS(I),RTD(ANGLE(I))

237 FORMAT(5X,I3,1X,F9.3,1X,F9.3,1X,F8.3,9X,F7.4,9X,F8.4)

write (2,707)

707 Format('1' 10x 'Start new plate solution'/)

 

C

926 CONTINUE

999 CONTINUE


Viewing all articles
Browse latest Browse all 1424

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>