anchor.diff:        ENDIF
   
      10 continue
  -      IF (JOB.EQ.'newline') INEW=1
  -      if (itsw.eq.1) itsw=0
  -      print *,'HMINUS: CYCLE STARTED'
  +
  +      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")
   
  
positive.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
  
negative.code: 
        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)
  
        IF (INEW.EQ.1) THEN
          print *,'HMINUS: TIME FOR CYCLE INCLUDING LINE BACKGROUND '//
  