demo_system_link Program

Uses

Contents

Source Code


Variables

Type Attributes Name Initial
integer :: ierr

Source Code

     program demo_system_link
     use M_system, only : system_link, system_perror
     integer :: ierr
     ierr = system_link('myfile1','myfile2')
     if(ierr.ne.0)then
        call system_perror('*demo_system_link*')
     endif
     end program demo_system_link