Recent content by 7man

Here they try '\': http://www.tek-tips.com/viewthread.cfm?qid=1752032 For me it doesn't work with: advance='no' ...

It worked for me when I replaced '\' with '$' line 13. I compile with g77. This doesn't work for me: write(*,'(A)',advance='no') WRITE (*, '(A$)') ' ANGULO : ' !! TRY $ TO REPLACE PROGRAM exercicio2 DIMENSION A(2, 2), B(2, 2), C(2, 2) C C VAI DEFINIR PONTOS A(...) C A(1, 1)...

What the $ does at the end of the format-string must be that it prevents the addition of a linefeed (LF) character (or CRLF).

Same program but easier to read: implicit none integer rpar(33),i do i=1,33 rpar(i)=i end do write(*,900),'Model Parameters: ' write(*,900),'Column length :',int(RPAR(2)),' m' write(*,900),'Mass transfer coeff N2 :',int(RPAR(3)),'...

As an uploaded filehttp://files.engineering.com/getfile.aspx?folder=1a0a5c73-9180-4a54-9ea0-ce66af1cef63&file=fixedw.f

implicit none integer rpar(33),i do i=1,33 rpar(i)=i end do write(*,900),'Model Parameters: ' write(*,900),'Column length :',int(RPAR(2)),' m' write(*,900),'Mass transfer coeff N2 :',int(RPAR(3)),' 1/s' write(*,900),'Mass transfer...

An alternative solution is to slightly modify the print statement: print '(a$)', 'Enter a number: ' The $ at the end of the format string will direct screen-printings to continue on the same line, not the beginning of next line. A space is added after the colon to make the screen-printings...