00001 module priv 00002 private 00003 00004 contains 00005 subroutine p_fie1 00006 end 00007 subroutine p_fie2 00008 end 00009 end