piglicen.f

Programs in the irregular grid design package described in this manual are used to carry out five ma

	interface
      logical function WPigLicenceOK[C] (name, org)
		character*(*) name [reference]
		character*(*) org [reference]
	end
	
	logical function WPigLicenceOKPrev[C] (name, org)
		character*(*) name [reference]
		character*(*) org [reference]
	end
	
	subroutine WPigGetLicencedUserAbout[C]
     +          (user, user_len, org, org_len)
		character*(*) user [reference]
		integer user_len [reference]
		character*(*) org [reference]
		integer org_len [reference]
	end

	subroutine WPigGetLicencedUser[C]
     +          (user, user_len, org, org_len)
		character*(*) user [reference]
		integer user_len [reference]
		character*(*) org [reference]
		integer org_len [reference]
	end

	subroutine WPigSaveLicence[C]
     +          (serial,code,name,org)
		integer serial [reference]
		integer code [reference]
		character*(*) name [reference]
		character*(*) org [reference]
	end

	subroutine WPigRegisterAuthority[C](code)
		integer code [reference]
	end

	subroutine WPigRegisterLicenceNo[C](serial)
		integer serial [reference]
	end                
	
	subroutine WPigUnLicence[C]
	end

	logical function WPigLicenced[C]()
	end

      End Interface
	
	include '../xpig/piglicen.f'