!+STCL subroutine stcal implicit none !----------------------------------------------------------------------- ! Description: Moves a user specified list of files into the Caldb ! based on their storage location as read from the ! caldbconfig file. ! ! Arguments: NONE ! ! Origin: Written for the Calibration Database ! ! Authors/Modification History: ! Ron Zellar Sep 15 1994 -- Original Version ! MFC Apr 16 2020 -- f90 version !----------------------------------------------------------------------- !- character(160) files integer errstat logical verbose character(40) taskname common /task/ taskname taskname = 'stcal' errstat = 0 ! Get parameter values from the par file call gpstcl(files, verbose, errstat) if (errstat.ne.0) return ! Store the calibration files call strcal(files, verbose, errstat) return end !+GPSTCL subroutine gpstcl(files, verbose, status) implicit none character*(*) files logical verbose integer status !----------------------------------------------------------------------- ! Description: Gets the parameters from the stcal par file ! ! Arguments: files (i): The value of the files parameter ! verbose (i): print info messages to screen ! status (r): the success status of this routine ! ! Origin: Written for the Calibration Database ! ! Authors/Modification history: ! Ron Zellar Sep 15 1994 -- Original Version !----------------------------------------------------------------------- !- integer errstat character(160) contxt ! Get the list of files to store call uclgst('files', files, errstat) if (errstat.ne.0) then contxt = 'Cannot get the files parameter' call fcerr(contxt) status = 1 return endif ! Get the verbose parameter call uclgsb('verbose', verbose, errstat) if (errstat.ne.0) then contxt = 'Cannot get the verbose parameter' call fcerr(contxt) status = 2 return endif return end