program Hello USE PhreeqcRM implicit none integer :: status integer :: nxyz integer :: nthreads integer :: rm_id nthreads = 3 nxyz = 12 rm_id = RM_Create(nxyz, nthreads) status = RM_ScreenMessage(rm_id, "Hello world.") status = RM_Destroy(rm_id) end program Hello