94 lines
2.7 KiB
Fortran
94 lines
2.7 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 allocate_LocationAcross()
|
|
use fitoffState
|
|
allocate(x1o(imax))
|
|
allocate(x2o(imax))
|
|
x1o = 0
|
|
x2o = 0
|
|
end
|
|
|
|
subroutine deallocate_LocationAcross()
|
|
use fitoffState
|
|
deallocate(x1o)
|
|
deallocate(x2o)
|
|
end
|
|
|
|
subroutine allocate_LocationDown()
|
|
use fitoffState
|
|
allocate(y1o(imax))
|
|
allocate(y2o(imax))
|
|
y1o = 0
|
|
y2o = 0
|
|
end
|
|
|
|
subroutine deallocate_LocationDown()
|
|
use fitoffState
|
|
deallocate(y1o)
|
|
deallocate(y2o)
|
|
end
|
|
|
|
subroutine allocate_LocationAcrossOffset()
|
|
use fitoffState
|
|
allocate(dx(imax))
|
|
dx = 0
|
|
end
|
|
|
|
subroutine deallocate_LocationAcrossOffset()
|
|
use fitoffState
|
|
deallocate(dx)
|
|
end
|
|
|
|
subroutine allocate_LocationDownOffset()
|
|
use fitoffState
|
|
allocate(dy(imax))
|
|
dy = 0
|
|
end
|
|
|
|
subroutine deallocate_LocationDownOffset()
|
|
use fitoffState
|
|
deallocate(dy)
|
|
end
|
|
|
|
subroutine allocate_SNR()
|
|
use fitoffState
|
|
allocate(snr(imax))
|
|
snr = 0
|
|
end
|
|
|
|
subroutine deallocate_SNR()
|
|
use fitoffState
|
|
deallocate(snr)
|
|
end
|
|
|
|
subroutine allocate_Covariance()
|
|
use fitoffState
|
|
allocate(r_covac(imax))
|
|
allocate(r_covdn(imax))
|
|
allocate(r_covx(imax))
|
|
r_covac = 0
|
|
r_covdn = 0
|
|
r_covx = 0
|
|
end
|
|
|
|
subroutine deallocate_Covariance()
|
|
use fitoffState
|
|
deallocate(r_covac)
|
|
deallocate(r_covdn)
|
|
deallocate(r_covx)
|
|
end
|