00001 MODULE MODI_VSLOG 00002 INTERFACE 00003 SUBROUTINE VSLOG(PA,PLOG,N) 00004 INTEGER N 00005 REAL PA(N), PLOG(N) 00006 END 00007 END INTERFACE 00008 END MODULE MODI_VSLOG