anchor.diff:  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  -! Originally created by James McDonagh, Rob Coates and Stuart Davie (Contributions from Dale Stuchfield)!
  +! Originally created by James McDonagh, Stuart Davie and Rob Coates (Contributions from Dale Stuchfield)!
   ! at the University of Manchester 2015 in the Popelier group.                                           !
   ! Acknowledge the use of strip spaces from Jauch 27 November and sort_asend from Rossetta code          !
   ! Licensed under Attribution-ShareAlike 2.5 Generic (CC BY-SA 2.5)                                      !
  
positive.code:             ierr = 1
          end if
       end do
  !
  !- - - - - - - - No input - - - - - - - - -
  !
  
negative.code:   use HISTORYrdf
    use krigingcoefficient
    use krigingcoefficientiqa
    use den_nodes
    use wat_order
    use analysis_of_varience
    use nodorder
    use solorder
    
    implicit none
    
    integer              :: ierr, narg, i, j, k, l, tasklen, noptions, AtomsBefore, NoWater, o_lap, natoms, Nbins, status
    double precision     :: res, fvt
    character (len=100)  :: fname, dummy, dummy2, dummy3, dummy4, strucfname, solutefname, connect, strucatom
    character (len=300)  :: buffer 
    character (len=9)    :: dum, task, Omicro, solutemicro, chargemicro, atomnummicro
    character (len=72)   :: line
    character (len=50)   :: TSname
    logical              :: file_ex, file_ex2
  
    print*,'------------------------------------ HERMES Version 1.1 ----------------------'
    print*,' TASK 1 : Determines the structural deviations over a DL POLY MD trajectory or' 
  