Programming Examples 51
SR620 Universal Time Interval Counter
tstring(22:27) = 'DATA '''
tstring (28:58) = command
tstring (59:64 ) =''' END|'
call TRANSMIT (tstring,status)
call
StatCheck
(address,status)
return
end
C *********************************************************************
C get an answer from a device
subroutine GetGpib (address,rstring)
integer*2
address,status,length
character*40
rstring
character*40
cmd
write
(cmd,100)address
100
format ('UNT UNL MLA TALK ',I2,'|')
call
TRANSMIT
(cmd,status)
call
StatCheck
(address,status)
rstring(1:40) = ' |'
call
RECEIVE
(rstring,length,status)
call
StatCheck
(address,status)
return
end
C ********************************************************************
C checks gpib status and prints error message
subroutine StatCheck (address,status)
integer*2
address,status
if (status .ne. 0) then
write (*,*)'Error at device ',address,' status= ',status
endif
return
end
Содержание SR620
Страница 2: ...SR620 Universal Time Interval Counter...
Страница 6: ...iv Table of Contents SR620 Universal Time Interval Counter...
Страница 8: ...vi Safety and Preparation for Use SR620 Universal Time Interval Counter...
Страница 12: ...x Specifications SR620 Universal Time Interval Counter...
Страница 58: ...42 Programming Commands SR620 Universal Time Interval Counter...
Страница 72: ...56 Programming Examples SR620 Universal Time Interval Counter...
Страница 76: ...60 Troubleshooting Tips SR620 Universal Time Interval Counter...
Страница 82: ...66 Performance Test SR620 Universal Time Interval Counter...
Страница 90: ...74 Calibration Procedure SR620 Universal Time Interval Counter...
Страница 102: ...86 Circuit Description SR620 Universal Time Interval Counter...
Страница 124: ...108 Parts List SR620 Universal Time Interval Counter...