Re: [photran] Photran Problems

[Гузий Саша <guziy.sasha@xxxxxxxxx>]

Hi, 
I asked the same question previously, and got response that this is not yet implemented for fortran subroutines unless it is in the module which is included with
use statement, but I did not verify it,
it should be in photran6, try it, please let me know the result.

good luck
--
Oleksandr Huziy

2010/6/22 Steven R. Brandt <sbrandt@xxxxxxxxxxx>

I posted this on ptp-user and got no response. I'm trying here....

I'm just getting started with Photran, and I'm having some difficulties.


First, the F3 key seems to not work on any symbol. When I put it on a variable and press I get an "Operation in progress" box for just a fraction of a second and then nothing. I get this on the console:

DispatchASTTasksJob#parseThenRunASTTasks(): -
   createLexer:    28 ms -


I also have C and C++ files in the project. At the moment these are not being indexed. Is there a way to get C/C++ and Fortran indexed?

I am running on Linux 64 and am using a freshly downloaded Helios. All the Fortran files I am looking at have suffix .F90 and use the c-preprocessor to generate freeform code.

I understand that macros and includes do not yet work with F3, but I am trying to find any symbol that I can look up with F3. In this file snippet I tried to use F3 to go to the declaration of ierr from any of its uses and failed.

======


subroutine Burgers_Boundaries(CCTK_ARGUMENTS)


 implicit none


 DECLARE_CCTK_ARGUMENTS
 DECLARE_CCTK_PARAMETERS
 DECLARE_CCTK_FUNCTIONS


 integer, dimension(3) :: sw
 integer :: ierr
 integer :: i,j,k
 CCTK_REAL :: zero = 0


 sw = Burgers_stencil


!!$Symmetry boundaries first


 call CartSymGN(ierr,cctkGH,"BurgersToy::conserved_u")


!!$Flat boundaries if required


 if (CCTK_EQUALS(bound,"flat")) then
   call BndFlatGN(ierr,cctkGH,sw,"BurgersToy::conserved_u")
   ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,&
        "BurgersToy::u","flat")
 endif


 if (CCTK_EQUALS(bound,"static")) then
   call  BndStaticGN(ierr,cctkGH,sw,"BurgersToy::conserved_u")
   ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,&
        "BurgersToy::u","static")
 end if


 if (CCTK_EQUALS(bound,"scalar")) then
   call  BndScalarGN(ierr,cctkGH,sw,zero,"BurgersToy::conserved_u")
   ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,&
        "BurgersToy::u","scalar")
 end if


 if (CCTK_EQUALS(bound,"none")) then
   ieinrr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,&
        "BurgersToy::u","none")
 end if


end subroutine Burgers_Boundaries

_______________________________________________
photran mailing list
photran@xxxxxxxxxxx
https://dev.eclipse.org/mailman/listinfo/photran