moved path/to/tracks to zcnsts

Author: poojanagrawal

src/cosmic/src/evolv2.f

@@ -254,17 +254,13 @@ SUBROUTINE evolv2(kstar,mass,tb,ecc,z,tphysf,
 
 
 
-      if(using_METISSE) CALL initialize_front_end('cosmic',
-     &                     path_to_tracks,path_to_he_tracks)
-      CALL zcnsts(z,zpars)
+      if(using_METISSE) CALL initialize_front_end('cosmic')
+*      for SSE path_to_tracks and path_to_he_tracks are empty ('')
+      CALL zcnsts(z,zpars,path_to_tracks,path_to_he_tracks)
 
       if(using_METISSE) call allocate_track(2,mass0)
       irecord = 1
-* irecord is useful for evolv1.f but serves no purpose here
-          
-      if(using_cmc.eq.0)then
-              CALL instar
-      endif
+*     irecord is useful for evolv1.f but serves no purpose here
 
 *
 * Save the initial state.
@@ -350,7 +346,7 @@ SUBROUTINE evolv2(kstar,mass,tb,ecc,z,tphysf,
 * Set the collision matrix.
 *
       if(using_cmc.eq.0)then
-          CALL zcnsts(z,zpars)
+            CALL instar
       endif
 
       kmin = 1

src/cosmic/src/zcnsts.f

@@ -1,15 +1,17 @@
-      SUBROUTINE zcnsts(z,zpars)
+      SUBROUTINE zcnsts(z,zpars,path_to_tracks,path_to_he_tracks)
       IMPLICIT NONE
       INCLUDE 'const_bse.h'
 
       real*8 z,zpars(20)
-      
+      CHARACTER*256 path_to_tracks,path_to_he_tracks
+
+
       if (using_METISSE) then
           !WRITE(*,*) 'Calling METISSE_zcnsts',using_METISSE
           !SSE_zcnsts also sets some coefficients used in gntage
           !updating gntage for METISSE will remove the need to call this
           CALL SSE_zcnsts(z,zpars)
-          CALL METISSE_zcnsts(z,zpars)
+          CALL METISSE_zcnsts(z,zpars,path_to_tracks,path_to_he_tracks)
 
       elseif (using_SSE) then
           !WRITE(*,*) 'Calling SSE_zcnsts'