topic Re: Serial Number not integer*4 in Intel® Fortran Compiler

Serial Number not integer*4

davidgraham — Thu, 23 Mar 2006 16:38:42 GMT

I am using GetVolumeInformation to get the serial number.

I am expecting an integet*4 value to be returned.

Thisis what I get on my computer, but on another computer I get 49,684,256,597,454

Iexpect integer*4 to be in the range -2,147,483,648 to 2,147,483,647.

What is going on?

David

Re: Serial Number not integer*4

Steven_L_Intel1 — Thu, 23 Mar 2006 21:35:40 GMT

You must have an INTEGER*8 variable in there somewhere or else you wouldn't even be able to display a value that large. How is it receiving the value? What does your code look like?

Re: Serial Number not integer*4

davidgraham — Fri, 24 Mar 2006 17:56:20 GMT

Code:

 integer*4 Function VolSerialNo
! ------------------------------
! get volume serial number

  use dfwin

  integer*4 lpVolumeSerialNo
  character lpszDriveName*50,lpszSystemName*50,Volume*50
  logical*4 bRC

  lpszDriveName='c:'//char(0)
  bRC=GetVolumeInformation(lpszDriveName,Volume,50,LOC(lpVolumeSerialNo),NULL,NULL,lpszSystemName,32)
  VolSerialNo=iabs(lpVolumeSerialNo)

 end function

Here is my code to get the volume number, it is an integer*4

David

Re: Serial Number not integer*4

Steven_L_Intel1 — Fri, 24 Mar 2006 22:17:35 GMT

Ok, how do you call this function and display the value? Is the function name declared as INTEGER*3 in the caller?

Re: Serial Number not integer*4

davidgraham — Mon, 27 Mar 2006 16:18:48 GMT

I was being silly - I was doing other things between calling the function and displaying the result