logical :: yourjob,finished,cgdone
! common /types/
integer :: MPI_UYZ,MPI_UYZGRAD,MPI_MU,MPI_MAT1,MPI_MAT2,&
- MPI_THET,MPI_GAM
+ MPI_THET,MPI_GAM,MPI_I50,MPI_SHI
integer,dimension(0:1) :: MPI_ROTAT1,MPI_ROTAT2,MPI_ROTAT_OLD,&
MPI_PRECOMP11,MPI_PRECOMP12,MPI_PRECOMP22,MPI_PRECOMP23
!-----------------------------------------------------------------------------