94 lines
2.6 KiB
Fortran
94 lines
2.6 KiB
Fortran
!#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
!# Author: Piyush Agram
|
|
!# Copyright 2013, by the California Institute of Technology. ALL RIGHTS RESERVED.
|
|
!# United States Government Sponsorship acknowledged.
|
|
!# Any commercial use must be negotiated with the Office of Technology Transfer at
|
|
!# the California Institute of Technology.
|
|
!# This software may be subject to U.S. export control laws.
|
|
!# By accepting this software, the user agrees to comply with all applicable U.S.
|
|
!# export laws and regulations. User has the responsibility to obtain export licenses,
|
|
!# or other export authority as may be required before exporting such information to
|
|
!# foreign countries or providing access to foreign persons.
|
|
!#
|
|
!#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
subroutine setWidth(varInt)
|
|
use aikimaState
|
|
implicit none
|
|
|
|
integer varInt
|
|
nac = varInt
|
|
end
|
|
|
|
subroutine setLength(varInt)
|
|
use aikimaState
|
|
implicit none
|
|
integer varInt
|
|
ndn = varInt
|
|
end
|
|
|
|
subroutine setFirstPixelAcross(varInt)
|
|
use aikimaState
|
|
implicit none
|
|
integer varInt
|
|
i_xmin = varInt
|
|
end
|
|
|
|
subroutine setLastPixelAcross(varInt)
|
|
use aikimaState
|
|
implicit none
|
|
integer varInt
|
|
i_xmax = varInt
|
|
end
|
|
|
|
subroutine setFirstLineDown(varInt)
|
|
use aikimaState
|
|
implicit none
|
|
integer varInt
|
|
i_ymin = varInt
|
|
end
|
|
|
|
subroutine setLastLineDown(varInt)
|
|
use aikimaState
|
|
implicit none
|
|
integer varInt
|
|
i_ymax = varInt
|
|
end
|
|
|
|
subroutine setBlockSize(varInt)
|
|
use aikimaState
|
|
implicit none
|
|
integer varInt
|
|
i_skip = varInt
|
|
end
|
|
|
|
subroutine setPadSize(varInt)
|
|
use aikimaState
|
|
implicit none
|
|
integer varInt
|
|
i_padn = varInt
|
|
end
|
|
|
|
subroutine setNumberPtsPartial(varInt)
|
|
use aikimaState
|
|
implicit none
|
|
integer varInt
|
|
i_ncp = varInt
|
|
end
|
|
|
|
subroutine setPrintFlag(varInt)
|
|
use aikimaState
|
|
implicit none
|
|
integer varInt
|
|
i_pflag = varInt
|
|
end
|
|
|
|
subroutine setThreshold(varInt)
|
|
use aikimaState
|
|
implicit none
|
|
real*4 varInt
|
|
r_thres = varInt
|
|
end
|
|
|
|
|