On Thu, 07 Oct 2010 02:22:55 +0000, Mark Morgan Lloyd <[email protected]> wrote:
>Bo Berglund wrote: >> On Wed, 06 Oct 2010 23:34:29 +0200, Bo Berglund >> <[email protected]> wrote: >> >> I found this converter by googling (offered on several websites, but >> basically the same everywhere): >> http://sourceforge.net/projects/fortran2pascal/ >> but unfortunately it only handles Fortran77 code, whereas our code is >> Fortran90 syntax. >> Tried it on one of the files but it created unusable pascal code. >> >> So is there something for Fortran90 or later? > >What sort of unusable? Does it document what target compiler it expects, >i.e. GNU Pascal? > Well it produces syntactically illegal pascal code... Here a short example of the start of a subroutine (newsreader has wrapped the code, long lines are ending with &) : ------ Fortran code ------- subroutine StiffnessFE(NodeX, NodeY, Conductivity, ReducedStiff, abscix, & iElemX, iElemY, LocalNodes, CenterNodeX, CenterNodeY, & ElemArea) use GlobalForw implicit none integer, intent(in) :: iElemX, iElemY real(Rkind), intent(in), dimension(1:gNumNodes) :: NodeX, NodeY real(Rkind), intent(in), dimension(1:gNumElem) :: Conductivity ----- Translates to this ------------ procedure StiffnessFE(var NodeX, NodeY, Conductivity, ReducedStiff, abscix, &; begin iElemX, iElemY, LocalNodes, CenterNodeX, CenterNodeY, &; ElemArea); use GlobalForw; , intent: array[in] of .... iElemX integer; real(Rkind), intent(in), dimension(1:gNumNodes) :: NodeX, NodeY; real(Rkind), intent(in), dimension(1:gNumElem) :: Conductivity; ------------------ You don't have to be an expert to see that this will not compile at all. The rest of the file looks much the same. -- Bo Berglund Developer in Sweden -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
