ciniSmpIntL.f

Go to the documentation of this file.

!     ******************************
      subroutine cinismpintl
      use modmcscontrol
      implicit none

#include  "Ztrack.h"
#include  "Ztrackv.h"

!       clear conter
      numberofinte = 0
      processno = 0
      movestat = tointeract
      activemcs = 'Mol'
      end