Re: [photran] Juno: problem with Refactor and indentation

[Greg Watson <g.watson@xxxxxxxxxxxx>]

I get a similar error. However if I remove the line 'implicit real (8)(a - h, o - z)' from the interface declaration the error goes away (at least when trying to correct the indentation).

I'm not a Fortran expert, but maybe the code is incorrect?

Greg

On Jul 12, 2012, at 3:03 PM, Ted Sariyski wrote:

> Hi,
> When I try to Refactor a project with Juno I get a message that the file cmake_fc.f90 (attached) cannot be parsed. When
> I try to correct indentation (Cntr+I) I get:  "Syntax error: Unexpected end of input cmake_fc.f90, line 65, column 1). Expected one of the ..."
> 
> Let me say that there is no line 65, routine ends at line 63. In addition the file as well as the project compiles and runs correctly. What I am doing wrong?
> 
> Thanks,
> --Ted
> 
> 
> 
> 
> subroutine cmake_fc (num_verts, num_3faces, num_4faces, &
>     num_4cells, num_5cells, num_6cells, num_8cells, f3_c, f3_v, f4_c, &
>     f4_v, num_3bfaces, num_4bfaces, bf3_v, bf4_v, bf3_f, bf4_f, &
>     bc3type, bc4type, c4_v, c5_v, c6_v, c8_v)
>  !
>  !=======================================================================
>  implicit real(8)(a - h, o - z)
>  integer(kind=4) :: f3_c (2, * ), f3_v (3, * ), f4_c (2, * ), f4_v (4, * )
>  integer(kind=4) :: c4_v (4, * ), c5_v (5, * ), c6_v (6, * ), c8_v (8, * )
>  integer(kind=4) :: bf3_v (3, * ), bf4_v (4, * ), bf3_f ( * ), bf4_f ( * )
>  integer(kind=4) :: bc3type ( * ), bc4type ( * )
>  logical :: match2, match3
>  logical :: add123, add234, add124, add134, add125, add235, add345, add145
>  logical :: add456, add1234
>  logical :: add1245, add2356, add1346
>  logical :: add5678, add1256, add2367, add3478, add1458
>  integer(kind=4) , allocatable::vodeg (:), volist (:, :)
>  logical :: abort
>  interface
>     subroutine make_fc (abort, ifactor, num_verts, num_3faces, &
>          num_4faces, num_4cells, num_5cells, num_6cells, num_8cells, f3_c, &
>          f3_v, f4_c, f4_v, num_3bfaces, num_4bfaces, bf3_v, bf4_v, bf3_f, &
>          bf4_f, bc3type, bc4type, c4_v, c5_v, c6_v, c8_v, vodeg, volist)
>       !
>       !=======================================================================
>       implicit real (8)(a - h, o - z)
>       integer(kind=4) :: f3_c (2, * ), f3_v (3, * ), f4_c (2, * ), f4_v (4, * )
>       integer(kind=4) :: c4_v (4, * ), c5_v (5, * ), c6_v (6, * ), c8_v (8, * )
>       integer(kind=4) :: bf3_v (3, * ), bf4_v (4, * ), bf3_f ( * ), bf4_f ( * )
>       integer(kind=4) :: vodeg ( * ), volist (num_verts, * )
>       integer(kind=4) :: bc3type ( * ), bc4type ( * )
>       logical :: abort
>     end subroutine make_fc
>    end interface
> 
>    IFACTOR = 16
> 
>   10 continue
> 
>    allocate (vodeg (num_verts))          ; vodeg=0
>    allocate (volist(num_verts, ifactor)) ; volist=0
> 
>    abort = .false.
> 
>    call make_fc (abort, ifactor, num_verts, num_3faces, num_4faces, &
>         num_4cells, num_5cells, num_6cells, num_8cells, f3_c, f3_v, f4_c, &
>         f4_v, num_3bfaces, num_4bfaces, bf3_v, bf4_v, bf3_f, bf4_f, &
>         bc3type, bc4type, c4_v, c5_v, c6_v, c8_v, vodeg, volist)
> 
>    deallocate (volist, vodeg)
>    if (abort) then
>       ifactor = ifactor + 2
>       !        write(*,*)' ifactor increased to ',ifactor
>       goto 10
> 
>    endif
> 
> end subroutine cmake_fc
> _______________________________________________
> photran mailing list
> photran@xxxxxxxxxxx
> https://dev.eclipse.org/mailman/listinfo/photran