arcos = 0.5D0*(PI-DSIGN(1.0D0,X)*PI)

[unres.git] / source / wham / src / COMMON.MPI

      integer me, me1, Master, Master1, Nprocs, Nprocs1, Comm1, 
     & Indstart, Indend, scount, idispl, i2ii, WHAM_COMM
      integer indstart_map,indend_map,idispl_map,scount_map
      common /MPI_Data/ Nprocs, Master,Master1,Me,Comm1,Me1,Nprocs1, 
     &  WHAM_COMM,
     &  Indstart(0:MaxProcs),
     &  Indend(0:MaxProcs), idispl(0:MaxProcs),
     &  scount(0:MaxProcs)