runtime error when running nwchem

Click here for full thread

Forum Vet

9:52:54 AM PST - Thu, Jan 23rd 2014

Tee
You might want to replace the code with this simpler one


      subroutine md_abort(string, icode)
      implicit none
#include "global.fh"
#include "stdio.fh"
      character*(*) string
      character*255 card
      integer icode
      write(luout,1000) ga_nodeid(),string,icode
 1000 format(/,1x,10('*'),/,' * ',i3,': ',a,i5,/,1x,10('*'))
      card=' '
      call ga_error(card,icode)
      return
      end