Stanford Research Systems SR620, Руководство пользователя

Страница: 66 / 124

50 Programming Examples
SR620 Universal Time Interval Counter
words(j) = 65535 - words(j)
12 continue
endif
C convert to floating point
do 13 j=0,3
fdata(i) = fdata(i)*65536.0D0 + words(3-j)
13 continue
C if number is negative add 1 to get 2's complement and change sign
if (sign .eq. 1)fdata(i) = -1.0D0 * (fdata(i) + 1.0D0)
C multiply by conversion factor
fdata(i) = factors(tmode) * fdata(i)
C change scale if expand is on
if (texpd .eq. 1) fdata(i) = fdata(i)*1.0D-3
10 continue
return
end
C *******************************************************************
C initialize the CEC GPIB card as a controller
Subroutine
InitGpib ()
integer*2
status
data str/'IFC UNT UNL DCL REN|'/
call INITIALIZE (21,0)
call TRANSMIT ('IFC UNT UNL DCL REN|',status)
return
end
C *********************************************************************
C makes device at address a talker
subroutine TalkGpib (address)
character*25
cmd
integer*2 status,address
write (cmd,100) address
100 format ('UNT UNL MLA TALK',I2,'|')
call TRANSMIT (cmd,status)
call StatCheck(address,status)
return
end
C *********************************************************************
C transmit command to address
subroutine
TxGpib (address,command)
character*30
command
character*70 tstring
character*2 temp
integer*2 status,address
tstring (1:19) ='UNT UNL MTA LISTEN '
write (temp,100)address
100 format (I2)
C set up CEC command string
tstring (20:21) = temp