module interface_input
 interface     !<<<<<<<<<<<<<<<<<<<
     subroutine lect_input (numcol,basename,col,tabvar,filename,ncfileout) 
       integer,intent(in)  :: numcol                 !< column number
       character(len=*), intent(in) :: basename      !< base name of the variable to write
       integer,intent(in)  :: col                    !< column   1->average, 2->minval 3->maxval
       real,dimension(:,:),intent(inout) :: tabvar   !< array to read in the variable
       character(len=*),intent(in) :: filename       !< name of the file to read
       character(len=*)::ncfileout                   !< name of the nc file to create 
     end subroutine lect_input
  end interface !<<<<<<<<<<<<<<<<<<<
end module interface_input