12.07.2015 Views

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

2 Intel <strong>Fortran</strong> <strong>Libraries</strong> <strong>Reference</strong>if(ierror.NE.0) thencall PXFSTRUCTFREE(jhandle1,ierror)STOP 'test failed - cannot create structure for jhandle2'end ifprint *,"Fill the structure associated with jhandle1 with arbitrary data"call PXFSTRSET(jhandle1,"sysname","00000000000000",14,ierror)if(ierror.NE.0) call Error('Error: can't set component sysname for jhandle1')call PXFSTRSET(jhandle1,"Nodename","11111111111111",14,ierror)if(ierror.NE.0) call Error('Error: can't set component nodename for jhandle1')call PXFSTRSET(jhandle1,"RELEASE","22222222222222",14,ierror)if(ierror.NE.0) call Error('Error: can't set component release for jhandle1')call PXFSTRSET(jhandle1,"verSION","33333333333333",14,ierror)if(ierror.NE.0) call Error('Error: can't set component version for jhandle1')call PXFSTRSET(jhandle1,"machine","44444444444444",14,ierror)if(ierror.NE.0) call Error('Error: can't set component machine for jhandle1')print *,"Fill the structure associated with jhandle2 with arbitary data"call PXFSTRSET(jhandle2,"sysname","aaaaaaaaa",7,ierror)if(ierror.NE.0) call Error('Error: can't set component sysname for jhandle2')call PXFSTRSET(jhandle2,"Nodename","BBBBBBBBB BBB",14,ierror)if(ierror.NE.0) call Error('Error: can't set component nodename for jhandle2')call PXFSTRSET(jhandle2,"RELEASE","cCCC cc-cccnc",12,ierror)if(ierror.NE.0) call Error('Error: can't set component release for jhandle2')call PXFSTRSET(jhandle2,"verSION","ddddd",1,ierror)if(ierror.NE.0) call Error('Error: can't set component version for jhandle2')call PXFSTRSET(jhandle2,"machine","eeeeeee",6,ierror)if(ierror.NE.0) call Error('Error: can't set component machine for jhandle2')print *,"Print contents of the structure associated with jhandle1"call PRINT_UTSNAME(jhandle1)print *,"Print contents of the structure associated with jhandle2"call PRINT_UTSNAME(jhandle2)print *,"Get operating system info into structure associated with jhandle1"2-340

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!