anchor.diff:  
         call system("echo ' '$(date +%s) >> wall_time.cycle"); call cpu_time(cycle_finish)
   
  +      call open_to_append(231, 'cpu_time.cycle'); write(231, '(F6.3)') cycle_finish - cycle_start; close(231)
  +
         print*, 'HMINUS: TIME USED FOR CYCLE: '//writeTOC(timer2)
  -
  -      call open_to_append(231, 'cpu_time.cycle'); write(231, '(F6.3)') cycle_finish - cycle_start; close(231)
   
         IF (INEW.EQ.1) THEN
           print *,'HMINUS: TIME FOR CYCLE INCLUDING LINE BACKGROUND '//
  
positive.code:       ENDIF
  
     10 continue
        IF (JOB.EQ.'newline') INEW=1
        if (itsw.eq.1) itsw=0
        print *,'HMINUS: CYCLE STARTED'
  
        call cpu_time(cycle_start); call system("echo -n $(date +%s) >> wall_time.cycle")
  
  
negative.code:       use UTILS, only: cp
        use MOD_HMINUS
        use PARAMS_ARRAY
  
        use common_block
        use file_operations
  
        implicit none
  
        integer ipdim,  nbdim, itemp
        integer itsw
  