Lahey Support
08-15-2003, 01:19 AM
The following is Lahey's recommendation for creating a pause using the Windows API.
! compile this with: LF95 WAIT.F90 -ML WINAPI -LIB KERNEL32 -WINCONSOLE
! or: LF90 WAIT.F90 -ML WINAPI -LIB KERNEL32 -WINCONSOLE
dll_import Sleep
print *,'I will now pause for 10 seconds'
call Sleep(carg(10000)) !10,000 miliseconds
print *,'I will now continue'
end
--
___________________________
___________________________
David T. Berry
Solutions Representative
Lahey Computer Systems Inc.
[address removed]
(702) 831-2500 x481
http://www.lahey.com
___________________________
___________________________
! compile this with: LF95 WAIT.F90 -ML WINAPI -LIB KERNEL32 -WINCONSOLE
! or: LF90 WAIT.F90 -ML WINAPI -LIB KERNEL32 -WINCONSOLE
dll_import Sleep
print *,'I will now pause for 10 seconds'
call Sleep(carg(10000)) !10,000 miliseconds
print *,'I will now continue'
end
--
___________________________
___________________________
David T. Berry
Solutions Representative
Lahey Computer Systems Inc.
[address removed]
(702) 831-2500 x481
http://www.lahey.com
___________________________
___________________________