gistfile1.f90

module netcdf
    private
    
    public type netcdf_file
    contains
        procedure open
        procedure close
        ! ...
    end type

contains

    subroutine ncdf_open(this, filename, mode)
        class(netcdf_file), intent(inout) :: this
        character(len=*) :: filename, mode
 
        ! ...
    end subroutine

end module

program test
    use netcdf
    type(netcdf_file) :: foo

    call foo%open()
end program