SUBROUTINE G_keep_results(groupname,ABORT,err) *---------------------------------------------------------------------- *- Prototype hall C keep_results routine *- *- Purpose and Methods : Given previously filled data structures, *- keep_results stores the reconstructed info. *- *- Output: ABORT - success or failure *- : err - reason for failure, if any *- *- Created 20-Nov-1993 Kevin B. Beard, HU * * $Log: g_keep_results.f,v $ * Revision 1.10.8.1.2.1 2008/05/15 18:59:21 bhovik * 1'st version * * Revision 1.10.8.1 2007/05/15 02:55:01 jones * Start to Bigcal code * * Revision 1.9.16.1 2004/07/09 14:12:47 saw * Add function calls to fill CTP ROOT Trees * * Revision 1.9 2002/09/25 14:38:21 jones * a. character*20 groupname changed to character*(*) groupname * b. remove declaration character*80 msg * * Revision 1.8 1996/01/16 18:18:33 cdaq * (JRA) Add group name to CTP calls * * Revision 1.7 1995/04/01 19:49:49 cdaq * (SAW) Fix mistake in error reporting * * Revision 1.6 1995/01/13 18:15:39 cdaq * (SAW) Put in a missing else that conspired with a broken thgethit (CTP) so that * things actually worked on HPUX. (But not Ultrix) * * Revision 1.5 1994/08/30 14:48:50 cdaq * (SAW) Add call to increment scalers * * Revision 1.4 1994/07/21 19:51:14 cdaq * (SAW) Add call to thgethit * * Revision 1.3 1994/06/17 03:50:36 cdaq * (KBB) Upgrade error reporting * * Revision 1.2 1994/04/15 20:35:29 cdaq * (KBB) Add calls to thtstexe and thhstexe * * Revision 1.1 1994/02/04 22:10:48 cdaq * Initial revision * *- *- All standards are from "Proposal for Hall C Analysis Software *- Vade Mecum, Draft 1.0" by D.F.Geesamn and S.Wood, 7 May 1993 *- *-------------------------------------------------------- IMPLICIT NONE SAVE * character*40 here parameter (here= 'G_keep_results') * logical ABORT character*(*) err * INCLUDE 'gen_data_structures.cmn' include 'gen_routines.dec' * logical FAIL character*1024 why character*(*) groupname integer ierr * *-------------------------------------------------------- * err= ' ' !erase any old errors * ierr= thgethitg(groupname) ABORT= ierr.NE.0 IF(ABORT) THEN call G_build_note(':failure#$ in thgethitg', & '$',ierr,' ',0.,' ',err) else ierr= thtstexeg(groupname) call thtstinsg(groupname) ! Increment scalers * ABORT= ierr.NE.0 IF(ABORT) THEN call G_build_note(':failure#$ in thtstexeg', & '$',ierr,' ',0.,' ',err) ELSE ierr= thhstexeg(groupname) ABORT= ierr.NE.0 If(ABORT) call G_build_note(':failure#$ in thhstexeg', & '$',ierr,' ',0.,' ',err) ierr = thtreeexeg(groupname) ENDIF ENDIF * *-HMS call H_keep_results(FAIL,why) IF(err.NE.' ' .and. why.NE.' ') THEN call G_append(err,' & '//why) ELSEIF(why.NE.' ') THEN err= why ENDIF ABORT= ABORT .or. FAIL * *-SOS call S_keep_results(FAIL,why) IF(err.NE.' ' .and. why.NE.' ') THEN call G_append(err,' & '//why) ELSEIF(why.NE.' ') THEN err= why ENDIF ABORT= ABORT .or. FAIL * *-COIN call C_keep_results(FAIL,why) IF(err.NE.' ' .and. why.NE.' ') THEN call G_append(err,' & '//why) ELSEIF(why.NE.' ') THEN err= why ENDIF ABORT= ABORT .or. FAIL *-BIGCAL call B_keep_results(FAIL,why) if(err.ne.' '.and. why.ne.' ') then call G_append(err,' & '//why) else if(why.ne.' ') then err = why endif abort = abort .or. fail *-SANE call SANE_keep_results(FAIL,why) if(err.ne.' '.and. why.ne.' ') then call G_append(err,' & '//why) else if(why.ne.' ') then err = why endif abort = abort .or. fail *-GEp call GEp_keep_results(FAIL,why) if(err.ne.' '.and.why.ne.' ') then call G_append(err,' & '//why) else if(why.ne.' ') then err = why endif abort = abort .or. fail * IF(ABORT .or. err.NE.' ') call G_add_path(here,err) * RETURN END