Commit c9d7b568 authored by Mads M. Pedersen's avatar Mads M. Pedersen
Browse files

Update write_version.f90 to match new hawc2 call

parent 999fc704
Pipeline #7561 passed with stage
in 48 seconds
module write_version_mod
character TextVersion*256
contains
!***********************************************************************
subroutine write_textversion
implicit none
integer*2 vinfo(4)
character text3a*3,text3b*3
character text35*35
integer*4 ret
!DEC$ IF .NOT. DEFINED(__LINUX__)
! Git revision number from autogenerated code using 'VersionScript.exe' in pre-built step
! include 'git_version.inc'
!DEC$ END IF
! Version
vinfo(1) = 2
vinfo(2) = 3
write(text3a,'(I3)') vinfo(1)
write(text3b,'(I3)') vinfo(2)
!DEC$ IF .NOT. DEFINED(__LINUX__)
! Combine text
TextVersion='Basic DTU Wind Energy Controller (ver. '//trim(adjustl(text3a))//&
'.'//trim(adjustl(text3b))//' '//trim(adjustl(text35))//&
') loaded ...'
!DEC$ ELSE
TextVersion='Basic DTU Wind Energy Controller (ver. '//trim(adjustl(text3a))//&
'.'//trim(adjustl(text3b))//' ) loaded ...'
!DEC$ END IF
return
end subroutine write_textversion
!***********************************************************************
subroutine version(s)
module write_version_mod
character TextVersion*256
contains
!***********************************************************************
subroutine write_textversion
implicit none
integer*2 vinfo(4)
character text3a*3,text3b*3
character text35*35
integer*4 ret
!DEC$ IF .NOT. DEFINED(__LINUX__)
! Git revision number from autogenerated code using 'VersionScript.exe' in pre-built step
! include 'git_version.inc'
!DEC$ END IF
! Version
vinfo(1) = 2
vinfo(2) = 3
write(text3a,'(I3)') vinfo(1)
write(text3b,'(I3)') vinfo(2)
!DEC$ IF .NOT. DEFINED(__LINUX__)
! Combine text
TextVersion='Basic DTU Wind Energy Controller (ver. '//trim(adjustl(text3a))//&
'.'//trim(adjustl(text3b))//' '//trim(adjustl(text35))//&
') loaded ...'
!DEC$ ELSE
TextVersion='Basic DTU Wind Energy Controller (ver. '//trim(adjustl(text3a))//&
'.'//trim(adjustl(text3b))//' ) loaded ...'
!DEC$ END IF
return
end subroutine write_textversion
!***********************************************************************
subroutine version(s)
!DEC$ ATTRIBUTES DLLEXPORT, STDCALL, REFERENCE, ALIAS:'version' :: version
use buildinfo
implicit none
!DEC$ ATTRIBUTES DLLEXPORT, ALIAS:'version' :: version
!DEC$ ATTRIBUTES STDCALL :: version
!DEC$ ATTRIBUTES REFERENCE:: s
character*255 :: s
character*(*) :: s
integer :: i
type (tbuildinfo) :: binfo
call buildInfo_initialise(binfo)
s = binfo%git_tag
end subroutine
!***********************************************************************
END MODULE write_version_mod
!***********************************************************************
END MODULE write_version_mod
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment