Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!ut-sally!husc6!bacchus!mit-eddie!ll-xn!ames!ucbcad!ucbvax!HASARA5.BITNET!U00159
From: U00159@HASARA5.BITNET
Newsgroups: mod.computers.vax
Subject: SYS$SETIMR
Message-ID: <8703161952.AA24323@ucbvax.Berkeley.EDU>
Date: Mon, 16-Mar-87 14:52:46 EST
Article-I.D.: ucbvax.8703161952.AA24323
Posted: Mon Mar 16 14:52:46 1987
Date-Received: Tue, 17-Mar-87 04:12:49 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The ARPA Internet
Lines: 72
Approved: info-vax@sri-kl.arpa


I want to execute a routine every 3 seconds. I thought to
do that with SYS$SETIMR. However I have problems with it.

Appendix D-2 of the VAX Fortran User's guide gives an example
of SYS$SETIMR. It says that to execute the AST routine repeatedly
one must reset the timer. My question is : How ?

The program here does not compile.

program try
implicit none

include '($syssrvnam)'
external astproc

integer status

character*(*) delay
parameter (delay='0 00:00:03.00')

logical done
integer bindelay(2)
common /uva/ done, bindelay
volatile /uva/

status = sys$bintim(delay, bindelay)
if ( .not. status) call lib$stop(%VAL(status))

status = sys$setimr(,bindelay,astproc,)
if ( .not. status) call lib$stop(%VAL(status))

done = .false.
do while (.not. done)
end do

end
*--
subroutine astproc
implicit none

include '($syssrvnam)'
include 'sys$library:uisentry'
include 'sys$library:uisusrdef'

integer status

logical done
integer bindelay(2)
common /uva/ done,bindelay

call uis$sound_bell('sys$workstation',4)

C now reset timer
status = SYS$SETIMR(,bindelay,astproc,)
if (.not. status) call lib$stop(%VAL(status))

return
end

*--------
The compiler gives the following messages

FORT-F-INVLEXEME, Variable name, constant or expression invalid in
this context.
[lay,astproc, )] in module astproc

Can someone help me ?

Alco Blom
u00159@HASARA5 (BITNET)
mcvax!u00159@HASARA5.bitnet  (UUCP)