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)...
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)),'...
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...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.