interface2.f

Go to the documentation of this file.

      data kd/' g', ' e', ' m'/
      save kd

      do i= 1, nsites
         histdep(i) = 0
         indivdep(i) = 0
      enddo

      leng = kgetenv2("HISTDEP", input)
      read(input, *) histdep

      leng = kgetenv2("INDIVDEP", input)
      read(input, *) indivdep

      leng = kgetenv2("OUTPUT", input)
      read(input, *) recxy, tklat, tkelosslat, tkrespec,
     *  tkrzspec, tkzfspec,  tkrfspec, tkefspec,
     *  tkretspec, tkrtspec,
     *  tkrezspec, tkrzfspec, tkrefspec, tkarspec

      binw = 2


      msg =input(1:leng)//
     *   "/"//execid(1:lengid)//"-@."//numb(1:lengn)//".hist"
      call copenfw2(fno, msg, binw, icon)  ! binary write
      if(icon .gt. 1) then
         write(0,*) ' icon=', icon
         call cerrormsg(msg, 1)
         call cerrormsg('could not be opened', 0)
      endif