anchor.diff:        use UTILS, only: cp
         use MOD_HMINUS
         use PARAMS_ARRAY
  -      USE COMMON_BLOCK
  -      USE FILE_OPERATIONS
  -
  -      IMPLICIT NONE
  +
  +      use common_block
  +      use file_operations
  +
  +      implicit none
   
         integer ipdim,  nbdim, itemp
         integer itsw
  
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: 
        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 '//
  