×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

twirly thing

twirly thing

twirly thing

(OP)
I'm a new user of gfortran and am wondering how you implement
a non-advancing write.

The following code fragment works fine under IVF.

CLOSE(UNIT=6)
OPEN(UNIT=6, CARRIAGECONTROL='FORTRAN')
DO I = 1, 1000
WRITE(6, 10) '/'
WRITE(6, 10) '-'
WRITE(6, 10) '\'
ENDDO
10 FORMAT('+',2A)
CLOSE(UNIT=6)
OPEN(UNIT=6, CARRIAGECONTROL='LIST')

Thank you.

RE: twirly thing

Try something like this

CODE

program main
   character(len=1):: bksp
   
   bksp = char(8)
   do ii = 1, 2000
      write(*, 10, advance='no') '/', bksp
      write(*, 10, advance='no') '-', bksp
      write(*, 10, advance='no') '\', bksp
      write(*, 10, advance='no') '|', bksp
   10 format(2A)
   end do
end program main 
This loop finishes in no time so you might want to think of some sort of delay in between the writes

RE: twirly thing

(OP)

Backspace, Duh!!!

Working now thank you.

! **********************************************************************
SUBROUTINE DELAY(INC)
! **********************************************************************
! INC - NUMBER OF 1/1000'S OF A SECOND DELAY
! ----------------------------------------------------------------------
IMPLICIT NONE
integer, intent(in) :: inc
INTEGER ITIME, ITIME0
integer, dimension(8) :: time_array

call date_and_time(values=time_array)

itime0 = time_array(5) * 3600000 + & ! hour
time_array(6) * 60000 + & ! minute
time_array(7) * 1000 + & ! second
time_array(8) ! milli second

do

call date_and_time(values=time_array)

itime = time_array(5) * 3600000 + & ! hour
time_array(6) * 60000 + & ! minute
time_array(7) * 1000 + & ! second
time_array(8) ! milli second

IF(ITIME >= ITIME0+INC) exit

enddo

END SUBROUTINE DELAY

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources