00001 module interface_source_virial_CF_qeos 00002 implicit none 00003 interface 00004 subroutine source_virial_CF_qeos(sou_Tkin,sou_Pint,sou_Wgra) 00005 real(8), pointer :: sou_Tkin(:,:,:), sou_Pint(:,:,:), sou_Wgra(:,:,:) 00006 end subroutine source_virial_CF_qeos 00007 end interface 00008 end module interface_source_virial_CF_qeos
1.6.1