Stanford Research Systems SR620, Manual

Page: 61 / 124

Programming Examples 45
SR620 Universal Time Interval Counter
Program Example 2
IBM PC, Microsoft FORTRAN V4.0, National Instruments GPIB Card
This example demonstartes using the SR620 via the GPIB. Microsoft's FORTRAN (for PC compatibles) is
used to program the time interval counter via National Instrument's GPIB interface card.
C Example program demonstrating programming the SR620 over the GPIB using
C the National Instruments GPIB card. The program sets up the SR620 and
C then starts taking data.
C
C This program is written in Microsoft FORTRAN v4.0. To use the National
C card the National device driver must be installed and the IBCONF program
C must be run to tell the driver where everything is. The program is compiled
C with the command FL /AL /FPa example2.for and the resulting object file is
C linked with the file MFIBL.OBJ (supplied by National )
$storage:2
C this line must be in the source file
common
/ibglob/ibsta,iberr,ibcnt
integer*2 sr620
character*80 data
real*8 answer
C initialize gpib card
call ibinit (ibsta)
C get device id for sr620
sr620 = ibfind ('SR620 ')
C setup TIC
call ibwrt (sr620,'*RST;MODE1;SRCE2;SIZE10;AUTM0\n 'c,30)
C
start measurement
100
call ibwrt (sr620,'STRT;*WAI;XAVG?\n 'c,16)
C read answer
data = ' '
call ibrd (sr620,data,20)
read (data,1000)answer
1000
format
(bn,1D22.16)
write (*,*) answer
C continue forever
goto 100
end