COSMOS v7.655  COSMOSv7655
(AirShowerMC)
ciniSmpIntL.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine cinismpintl
 

Function/Subroutine Documentation

◆ cinismpintl()

subroutine cinismpintl ( )

Definition at line 3 of file ciniSmpIntL.f.

References tointeract.

Referenced by csampintl().

3  use modmcscontrol
4  implicit none
5 
6 #include "Ztrack.h"
7 #include "Ztrackv.h"
8 
9 ! clear conter
10  numberofinte = 0
11  processno = 0
12  movestat = tointeract
13  activemcs = 'Mol'
const int tointeract
Definition: Ztrackv.h:93
Here is the caller graph for this function: