text:
-makelib ies_lib/xil_defaultlib -sv \
  "/data/opt/Xilinx/Vivado/2017.4/data/ip/xpm/xpm_cdc/hdl/xpm_cdc.sv" \
  "/data/opt/Xilinx/Vivado/2017.4/data/ip/xpm/xpm_fifo/hdl/xpm_fifo.sv" \
  "/data/opt/Xilinx/Vivado/2017.4/data/ip/xpm/xpm_memory/hdl/xpm_memory.sv" \
-endlib
-makelib ies_lib/xpm \
  "/data/opt/Xilinx/Vivado/2017.4/data/ip/xpm/xpm_VCOMP.vhd" \
-endlib
-makelib ies_lib/xlconcat_v2_1_1 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/2f66/hdl/xlconcat_v2_1_vl_rfs.v" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_irqConcat_0/sim/flute_irqConcat_0.v" \
-endlib
-makelib ies_lib/lib_cdc_v1_0_2 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ef1e/hdl/lib_cdc_v1_0_rfs.vhd" \
-endlib
-makelib ies_lib/proc_sys_reset_v5_0_12 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/f86a/hdl/proc_sys_reset_v5_0_vh_rfs.vhd" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_porReset_0/sim/flute_porReset_0.vhd" \
-endlib
-makelib ies_lib/axi_infrastructure_v1_1_0 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec67/hdl/axi_infrastructure_v1_1_vl_rfs.v" \
-endlib
-makelib ies_lib/smartconnect_v1_0 -sv \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/02c8/hdl/sc_util_v1_0_vl_rfs.sv" \
-endlib
-makelib ies_lib/axi_protocol_checker_v2_0_1 -sv \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/3b24/hdl/axi_protocol_checker_v2_0_vl_rfs.sv" \
-endlib
-makelib ies_lib/axi_vip_v1_1_1 -sv \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/a16a/hdl/axi_vip_v1_1_vl_rfs.sv" \
-endlib
-makelib ies_lib/processing_system7_vip_v1_0_3 -sv \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/1313/hdl/processing_system7_vip_v1_0_vl_rfs.sv" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_processing_system7_0_0/sim/flute_processing_system7_0_0.v" \
-endlib
-makelib ies_lib/axi_lite_ipif_v3_0_4 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/cced/hdl/axi_lite_ipif_v3_0_vh_rfs.vhd" \
-endlib
-makelib ies_lib/axi_intc_v4_1_10 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/cf04/hdl/axi_intc_v4_1_vh_rfs.vhd" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_psInterruptController_0/sim/flute_psInterruptController_0.vhd" \
-endlib
-makelib ies_lib/xlslice_v1_0_1 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/f3db/hdl/xlslice_v1_0_vl_rfs.v" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_resetSlice_0/sim/flute_resetSlice_0.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_subprocessorClk_0/flute_subprocessorClk_0_mmcm_pll_drp.v" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_subprocessorClk_0/proc_common_v3_00_a/hdl/src/vhdl/flute_subprocessorClk_0_conv_funs_pkg.vhd" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_subprocessorClk_0/proc_common_v3_00_a/hdl/src/vhdl/flute_subprocessorClk_0_proc_common_pkg.vhd" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_subprocessorClk_0/proc_common_v3_00_a/hdl/src/vhdl/flute_subprocessorClk_0_ipif_pkg.vhd" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_subprocessorClk_0/proc_common_v3_00_a/hdl/src/vhdl/flute_subprocessorClk_0_family_support.vhd" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_subprocessorClk_0/proc_common_v3_00_a/hdl/src/vhdl/flute_subprocessorClk_0_family.vhd" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_subprocessorClk_0/proc_common_v3_00_a/hdl/src/vhdl/flute_subprocessorClk_0_soft_reset.vhd" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_subprocessorClk_0/proc_common_v3_00_a/hdl/src/vhdl/flute_subprocessorClk_0_pselect_f.vhd" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_subprocessorClk_0/axi_lite_ipif_v1_01_a/hdl/src/vhdl/flute_subprocessorClk_0_address_decoder.vhd" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_subprocessorClk_0/axi_lite_ipif_v1_01_a/hdl/src/vhdl/flute_subprocessorClk_0_slave_attachment.vhd" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_subprocessorClk_0/axi_lite_ipif_v1_01_a/hdl/src/vhdl/flute_subprocessorClk_0_axi_lite_ipif.vhd" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_subprocessorClk_0/flute_subprocessorClk_0_clk_wiz_drp.vhd" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_subprocessorClk_0/flute_subprocessorClk_0_axi_clk_config.vhd" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_subprocessorClk_0/flute_subprocessorClk_0_clk_wiz.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_subprocessorClk_0/flute_subprocessorClk_0.v" \
-endlib
-makelib ies_lib/generic_baseblocks_v2_1_0 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/b752/hdl/generic_baseblocks_v2_1_vl_rfs.v" \
-endlib
-makelib ies_lib/axi_register_slice_v2_1_15 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/3ed1/hdl/axi_register_slice_v2_1_vl_rfs.v" \
-endlib
-makelib ies_lib/fifo_generator_v13_2_1 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/5c35/simulation/fifo_generator_vlog_beh.v" \
-endlib
-makelib ies_lib/fifo_generator_v13_2_1 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/5c35/hdl/fifo_generator_v13_2_rfs.vhd" \
-endlib
-makelib ies_lib/fifo_generator_v13_2_1 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/5c35/hdl/fifo_generator_v13_2_rfs.v" \
-endlib
-makelib ies_lib/axi_data_fifo_v2_1_14 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/9909/hdl/axi_data_fifo_v2_1_vl_rfs.v" \
-endlib
-makelib ies_lib/axi_crossbar_v2_1_16 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/c631/hdl/axi_crossbar_v2_1_vl_rfs.v" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_xbar_1/sim/flute_xbar_1.v" \
-endlib
-makelib ies_lib/blk_mem_gen_v8_3_6 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/2751/simulation/blk_mem_gen_v8_3.v" \
-endlib
-makelib ies_lib/axi_bram_ctrl_v4_0_13 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/20fd/hdl/axi_bram_ctrl_v4_0_rfs.vhd" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_procBramController_0/sim/flute_procBramController_0.vhd" \
-endlib
-makelib ies_lib/axi_protocol_converter_v2_1_15 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ff69/hdl/axi_protocol_converter_v2_1_vl_rfs.v" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_procProtocolConv_0/sim/flute_procProtocolConv_0.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_procXbar_0/sim/flute_procXbar_0.v" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_psBramController_0/sim/flute_psBramController_0.vhd" \
-endlib
-makelib ies_lib/axi_clock_converter_v2_1_14 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/445f/hdl/axi_clock_converter_v2_1_vl_rfs.v" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_psClockConv_0/sim/flute_psClockConv_0.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_psCrossbar_0/sim/flute_psCrossbar_0.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_psProtocolConv_0/sim/flute_psProtocolConv_0.v" \
-endlib
-makelib ies_lib/blk_mem_gen_v8_4_1 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/67d8/simulation/blk_mem_gen_v8_4.v" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_riscvBram_0/sim/flute_riscvBram_0.v" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_riscvReset_0/sim/flute_riscvReset_0.vhd" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_xbar_0/sim/flute_xbar_0.v" \
  "../../../../flute.srcs/sources_1/bd/flute/sim/flute.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/BRAM2.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/FIFO2.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/FIFO20.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/RegFile.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/mkBranch_Predictor.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/mkCPU.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/mkCSR_MIE.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/mkCSR_MIP.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/mkCSR_RegFile.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/mkGPR_RegFile.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/mkMMU_Cache.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/mkNear_Mem.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/mkNear_Mem_IO.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/mkRISCV_MBox.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/mkSoC_Map.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/ec93/src/mkCore.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_flute3_0_0/sim/flute_flute3_0_0.v" \
-endlib
-makelib ies_lib/axi_dwidth_converter_v2_1_15 \
  "../../../../flute.srcs/sources_1/bd/flute/ipshared/1cdc/hdl/axi_dwidth_converter_v2_1_vl_rfs.v" \
-endlib
-makelib ies_lib/xil_defaultlib \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_auto_ds_1/sim/flute_auto_ds_1.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_auto_pc_1/sim/flute_auto_pc_1.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_auto_pc_2/sim/flute_auto_pc_2.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_auto_us_0/sim/flute_auto_us_0.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_auto_cc_0/sim/flute_auto_cc_0.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_auto_ds_0/sim/flute_auto_ds_0.v" \
  "../../../../flute.srcs/sources_1/bd/flute/ip/flute_auto_pc_0/sim/flute_auto_pc_0.v" \
-endlib
-makelib ies_lib/xil_defaultlib \
  glbl.v
-endlib

ext: f

max_stars_repo_name: indirajhenny/RISC-V-On-PYNQ

max_issues_repo_name: indirajhenny/RISC-V-On-PYNQ

max_forks_repo_name: indirajhenny/RISC-V-On-PYNQ


text:
      MODULE mamult_I
      INTERFACE
!...Generated by Pacific-Sierra Research 77to90  4.4G  08:34:51  03/09/06
      SUBROUTINE mamult (A, B, C, N, ONE)
      USE vast_kind_param,ONLY: DOUBLE
      REAL(DOUBLE), DIMENSION(*), INTENT(IN) :: A
      REAL(DOUBLE), DIMENSION(*), INTENT(IN) :: B
      REAL(DOUBLE), DIMENSION(*), INTENT(INOUT) :: C
      INTEGER, INTENT(IN) :: N
      REAL(DOUBLE), INTENT(IN) :: ONE
      END SUBROUTINE
      END INTERFACE
      END MODULE

max_stars_repo_name: openmopac/MOPAC-archive

max_issues_repo_name: openmopac/MOPAC-archive

max_forks_repo_name: openmopac/MOPAC-archive


text:
! { dg-do compile }

       SUBROUTINE A27()
         INTEGER I, A
!$OMP PARALLEL PRIVATE(A)
!$OMP PARALLEL DO PRIVATE(A)
           DO I = 1, 10
              ! do work here
          END DO
!$OMP END PARALLEL DO
!$OMP END PARALLEL
      END SUBROUTINE A27

max_issues_repo_name: sujankh/rose-matlab

max_forks_repo_name: sujankh/rose-matlab


text:
! { dg-do run { xfail spu-*-*  } }
! Test XFAILed on Darwin because the system's printf() lacks
! proper support for denormals.
!
! This tests that the default formats for formatted I/O of reals are
! wide enough and have enough precision, by checking that values can
! be written and read back.
!
include "default_format_1.inc"

program main
  use test_default_format

  if (test (1.0_4, 0) /= 0) call abort
  if (test (tiny(0.0_4), 1) /= 0) call abort
  if (test (-tiny(0.0_4), -1) /= 0) call abort
  if (test (huge(0.0_4), -1) /= 0) call abort
  if (test (-huge(0.0_4), 1) /= 0) call abort

  if (test (1.0_8, 0) /= 0) call abort
  if (test (tiny(0.0_8), 1) /= 0) call abort
  if (test (-tiny(0.0_8), -1) /= 0) call abort
  if (test (huge(0.0_8), -1) /= 0) call abort
  if (test (-huge(0.0_8), 1) /= 0) call abort
end program main
!
! { dg-final { cleanup-modules "test_default_format" } }

max_stars_repo_name: maurizioabba/rose


text:
*dk,getnodhyb
      subroutine getnodhyb(mpno,mpary,ieltno,ieltary,nnodes,itet,
     &   itetoff,itettyp,iparent,invmpary,isubname1,ipnodhyb,
     &   ipnodhyboff)
C #####################################################################
C
C     PURPOSE -
C
C        GETNODHYB gets the node-hyb relation for a 3D mesh.
C          For a given node, the node-hyb relation
C          is a list of numbers that give the hybrid elements that the
C          the node belongs to AND the local node number within each element.
C
C     INPUT ARGUMENTS -
C
C         mpno      - number of nodes for which we need relation.
C         mpary     - array of nodes needing relation.
C         ieltno    - number of elements involved in this calculation.
C         ieltary   - array of relevant elements from which we will
C                     derive the node-edge relation.
C         nnodes    - total number of nodes in mesh.
C         itet      - array containing element-node relation for
C                     whole mesh.
C         itetoff   - offset array for itet.
C         itettyp   - array giving element types for all elements
C                     in the mesh.
C         iparent   - array giving the parent of each node.
C         invmpary  - inverse array of MPARY.
C         isubname1 - name of partition which contains the output
C                     arrays.
C
C     INPUT/OUTPUT ARGUMENTS -
C
C         ipnodhyb  - Pointer to NODHYB array which gives, for each node,
C                     a list of elements that the node touches, encoded
C                     with local node numbering information.
C         ipnodhyboff   - Pointer to NODHYBOFF array giving offsets into
C                         NODHYB array.
C
C     CHANGE HISTORY -
C
C        $Log: getnodhyb.f,v $
C        Revision 2.00  2007/11/05 19:45:57  spchu
C        Import to CVS
C
CPVCS
CPVCS       Rev 1.3   24 Feb 2000 11:20:36   jtg
CPVCS    numlocnod count was incorrect if qud, lin, or pnt elements
CPVCS    occurred in the mesh. This has beend fixed.
CPVCS
CPVCS       Rev 1.2   Thu Sep 24 15:52:48 1998   kuprat
CPVCS    Fixed bug where NTRI was not initialized to zero.
CPVCS
CPVCS       Rev 1.1   Fri Aug 21 16:46:48 1998   dcg
CPVCS    make changes to allow for 2d massage
CPVCS
CPVCS       Rev 1.0   Wed Oct 29 16:59:12 1997   kuprat
CPVCS    Initial revision.
C
c#######################################################################
c     Get nod-hyb relation.  Thus for node NODE=MPARY(K), we have
c     that NODHYBOFF(K) points into a set of values in NODHYB, such that for
c     each hybrid element IHYB=IELTARY(I) (with node NODE matching with
c     the J'th local node in element IHYB), we have a value
c     J+MAXNEN*I.  This method of encoding two pieces of information
c     is patterned after 'JTET' encoding--MAXNEN is the maximum number
c     of local vertices that an element can have, assuring unambiguous
c     encoding.
c#######################################################################

      implicit none
      include 'local_element.h'
      include 'consts.h'
      include 'smooth.h'

      integer lenptr
      parameter (lenptr=1000000)

      integer mpno,mpary(lenptr),ieltno,ieltary(lenptr),nnodes,
     &   itet(lenptr),itetoff(lenptr),itettyp(lenptr),
     &   iparent(lenptr),invmpary(lenptr)

      pointer (ipnodhyb1,nodhyb1), (iplinknodhyb,linknodhyb),
     &   (ipifirstnodhyb,ifirstnodhyb), (ipnodhyb,nodhyb),
     &   (ipnodhyboff,nodhyboff)

      integer nodhyb1(lenptr),linknodhyb(lenptr),
     &   ifirstnodhyb(lenptr),nodhyb(lenptr),nodhyboff(lenptr)

      integer icscode,i,next,j,inc,ind,lenorig,ihyb,
     &   ii,numlocnod,nextnodhyb,node

      character*32 isubname,  isubname1

      isubname='getnodhyb'

c.... Compute the total number of 'local nodes' in the IELTARY
c.... array of IELTNO elements.  That is, for each element count
c....  the number of nodes with non-zero invmpary.

      numlocnod=0
      do i=1,ieltno
         ihyb=ieltary(i)
         do j=1,nelmnen(itettyp(ihyb))
            node=itet(j + itetoff(ihyb))
            ii=invmpary(iparent(node))
            if (ii.ne.0) numlocnod=numlocnod+1
         enddo
      enddo

c.... Allocate temporary storage for linked lists needed to derive
c.... this topological relation.  The amount of storage needed is
c.... NUMLOCNOD (total no. of data items) for the data and link
c.... array, and is MPNO (size of index set) for the IFIRSTNODHYB
c.... array which points into the data array.

      call mmgetblk('nodhyb1',isubname,ipnodhyb1,numlocnod,1,icscode)
      call mmgetblk('linknodhyb',isubname,iplinknodhyb,numlocnod,1
     &   ,icscode)
      call mmgetblk('ifirstnodhyb',isubname,ipifirstnodhyb,mpno,1
     &   ,icscode)

      do i=1,mpno
         ifirstnodhyb(i)=0
      enddo
      nextnodhyb=1

c.... Loop over array of elements and insert local nodes into
c.... linked lists.

      do i=1,ieltno
         ihyb=ieltary(i)
         do j=1,nelmnen(itettyp(ihyb))

            node=itet(j + itetoff(ihyb))
            ii=invmpary(iparent(node))

            if (ii.ne.0) then
               if (ifirstnodhyb(ii).eq.0) then
                  ifirstnodhyb(ii)=nextnodhyb
               else
                  ind=ifirstnodhyb(ii)
                  do while(linknodhyb(ind).ne.0)
                     ind=linknodhyb(ind)
                  enddo
                  linknodhyb(ind)=nextnodhyb
               endif
               nodhyb1(nextnodhyb)=j+maxnen*(i-1)
               linknodhyb(nextnodhyb)=0
               nextnodhyb=nextnodhyb+1
            endif
         enddo
      enddo

c.... Allocate memory if necessary for data arrays which
c.... will reside in the ISUBNAME1 partition.

      call mmblklen('nodhyb',isubname1,ipnodhyb,lenorig,icscode)
      if (numlocnod.gt.lenorig) then
         if (icscode.eq.0) then
            inc=numlocnod-lenorig
            call mmincblk('nodhyb',isubname1,ipnodhyb,inc,icscode)
         else
            call mmgetblk('nodhyb',isubname1,ipnodhyb,numlocnod,1
     &         ,icscode)
         endif
      endif
      call mmblklen('nodhyboff',isubname1,ipnodhyboff,lenorig,icscode)
      if (mpno+1.gt.lenorig) then
         if (icscode.eq.0) then
            inc=mpno+1-lenorig
            call mmincblk('nodhyboff',isubname1,ipnodhyboff,inc,icscode)
         else
            call mmgetblk('nodhyboff',isubname1,ipnodhyboff,mpno+1,1
     &         ,icscode)
         endif
      endif

c.... Loop through linked lists and write them out in a sequential
c.... manner into the target arrays which hold the output
c.... topological relation.

      next=1
      do ii=1,mpno
         nodhyboff(ii)=next-1
         ind=ifirstnodhyb(ii)
         do while (ind.ne.0)
            nodhyb(next)=nodhyb1(ind)
            ind=linknodhyb(ind)
            next=next+1
         enddo
      enddo
      nodhyboff(mpno+1)=next-1

c.... Release temporary memory.

      call mmrelprt(isubname,icscode)
      return
      end

max_forks_repo_name: daniellivingston/LaGriT


text:
Debats du Senat (hansard)
1ere Session, 36e Legislature,
Volume 137, Numero 35
Le jeudi 18 decembre 1997
L'honorable Gildas L. Molgat, President
Les travaux du Senat
Rapport du comite plenier
Les affaires indiennes et le Nord canadien
La creation d'un fonds pour les centres de guerison-La position du gouvernement
Pourquoi investir davantage a l'etranger
L'imposition d'amendes pour une infraction a la loi sur la langue d'affichage
Depot du rapport annuel du bibliothecaire du Parlement
Les travaux du Senat
Autorisation du comite plenier a rembourser les frais de deplacement
Le manque de representants des minorites visibles travaillant au Senat-La position du gouvernement
Les pretendues enseignes au Centre Corel-La position du gouvernement
Les projets gaziers de l'ile de Sable-Rumeurs d'accord
Reponses differees a des questions orales
Les travaux du Senat
L'aeroport international Pearson-Question au Feuilleton-Demande de reponse
Projet de loi sur l'Office d'investissement du Regime de pensions du Canada
Projet de loi modificatif-Report du debat
Les travaux du Senat
Adoption du rapport du comite des affaires etrangeres
Adoption du rapport du comite des affaires etrangeres
Autorisation au comite de se deplacer
L'honorable William J. Petten
L'honorable M. Lorne Bonnell
Le jeudi 18 decembre 1997
La seance est ouverte a 9 heures, le President etant au fauteuil.
Les travaux du Senat
L'honorable Noel A. Kinsella (chef adjoint suppleant de l'opposition) :
Je m'interroge au sujet de la facon dont nous allons disposer de la motion.
Nous nous serons conformes sur le fond par les dispositions que nous prendrons tres bientot.
Son Honneur le President :
Est-ce d'accord, honorables senateurs?
MODIFICATION DE LA CONSTITUTION DU CANADA
Est-ce d'accord, honorables senateurs?
Messieurs, soyez les bienvenus au Senat.
Son Excellence Monseigneur Anthony Tonnos , eveque de Hamilton et president de Christian Education:
Toutefois, je suis tres heureux d'etre ici ce matin.
Les gouvernements ont pour role de les aider a assumer cette responsabilite essentielle.
A notre avis, les autorites devraient garantir ce droit des parents.
L'article 2 de l'amendement propose a la clause 17 dit ceci:
Qui donnera les cours d'enseignement religieux?
On diminue son influence sur l'enfant.
Je tiens a remercier les temoins qui sont venus comparaitre ce matin.
Par souci de clarte, vous pourriez peut-etre reiterer votre position.
Les renseignements qui nous viennent de Terre-Neuve prouvent deux ou trois choses.
La majorite des catholiques n'ont pas vote contre les ecoles confessionnelles.
On ne pose pas la question a la majorite.
Et c'est justement ce qui a ete fait dans le cadre de ces referendums.
Les catholiques ne sont pas majoritaires a Terre-Neuve.
Le senateur a parle du Quebec, que j'avais omis de mentionner dans mon expose.
Cette difference fondamentale reside dans le fait que les catholiques sont majoritaires au Quebec.
Pouvez-vous expliquer ce fait?
Je ne suis pas un specialiste de ce genre de questions.
Je vous ferais remarquer que ca se fait deja a Terre-Neuve.
Vous avez parle d'amour, de spiritualite et de sexualite.
Cela se fait generalement dans les grandes classes, au niveau secondaire.
L'etude comparative des religions ne me represente cependant pas en tant que catholique.
C'est ce que je voudrais pour mon enfant.
Cependant, les eveques de Terre-Neuve m'ont dit deux choses.
La loi le permet, si tel est leur desir.
Si cet enseignement n'existe pas, ils pourront le demander.
Je vous remercie d'avoir exprime vos opinions, senateur.
Je les respecte certainement.
Je suis heureuse d'accueillir des eveques au Senat.
Leur presence nous honore tous, je crois.
La comparution des eveques devant le Senat est vraiment un fait historique.
J'en ai parle avec Monseigneur Tonnos.
Si je ne m'abuse, la religion inclut le dogme.
Ce ne serait pas un cours de religion.
L'observation que vous avez faite sur les cours d'enseignement religieux est parfaitement exacte.
Votre Excellence, deux points me servent de reperes.
L'un est que les droits des minorites ne sont pas absolus.
Son objectif declare etait la qualite de l'education.
Toutefois, ce n'est certainement pas le cas ici.
En fait, je pense que c'est plutot le contraire qui est vrai.
Je ne suis pas qualifie pour en dire plus.
En tant qu'anglicane pratiquante, j'ai honte.
Cela ne fait aucun doute.
Voila ce que je crois.
A-t-il le droit de ne pas se faire endoctriner?
Je n'ai pas donne la parole a personne d'autre.
Senateur Pearson, avez-vous fini de poser vos questions?
Comment peuvent-ils se prononcer contre?
Ils construisent, nourrissent et financent leur systeme depuis 150 ans.
Pourquoi songeraient-ils a le rejeter?
Je ne vois aucune raison.
Votre declaration est valide et exacte.
Voila pourquoi les autres provinces fondent toujours leurs theses sur les droits des minorites.
A mon avis, c'est vrai, mais le droit a l'enseignement confessionnel existe egalement.
Nos opinions different peut-etre quelque peu a ce sujet.
Je considere que le droit d'eduquer un enfant est un droit fondamental.
Que reste-t-il a l'Etat?
Ou cela finira-t-il?
Ce debat dure depuis longtemps au Quebec.
Il y a une distinction a faire.
Je vous remercie tous les deux de votre presence parmi nous aujourd'hui.
J'ai quelque chose a ajouter aux questions posees par le senateur Carstairs.
Il s'agit d'une question importante.
Je tenais a apporter cette precision.
Je ne puis repondre au nom des eveques de Terre-Neuve.
Le senateur Robichaud ( L'Acadie-Acadia ) :
La difference tiendra a la disparition complete des ecoles confessionnelles.
A proprement parler, les ecoles catholiques n'existeront tout simplement plus.
Dans les autres provinces, sauf au Nouveau-Brunswick, elles continuent d'exister.
Le senateur Robichaud ( L'Acadie-Acadia ) :
Le senateur Robichaud ( L'Acadie-Acadia ) :
Je suis heureuse que vous vous en rendiez compte.
En posant cette question, je veux obtenir des eclaircissements.
J'essaie de decouvrir les motifs veritables de votre opposition a la resolution proposee.
J'ai ajoute la ou c'etait viable d'avoir une ecole de cette religion.
De sorte que ce n'est pas un droit fondamental, mais seulement un droit conditionnel.
Elle est fondee sur un droit qui a existe historiquement depuis ce temps-la.
Je voudrais savoir de quel droit il s'agit en l'occurrence.
Les philosophes nous disent que certains droits sont fondes sur des principes eternels.
L'autre droit est un droit historique.
Ceux qui connaissent la common law savent tout des droits historiques.
Vous semblez vouloir gagner sur les deux tableaux.
Je pense que vous affaiblissez votre cas en jouant sur les deux tableaux.
Par exemple, les juifs forment, au Canada, un groupe minoritaire assez nombreux.
Je crois que les structures actuelles peuvent etre ameliorees.
Des arrangements particuliers ont-ils ete pris a Terre-Neuve pour les eleves juifs?
Je suis desole, senateur, je ne peux pas repondre a cela.
J'ignore quelle est la situation a Terre-Neuve pour les eleves juifs.
Je comprends tres bien vos arguments, mais le Canada est en train de se transformer.
Je vous souhaite la bienvenue a ce comite plenier du Senat.
Mme Oonagh O'Dea , Education First:
Nous representons un groupe non politique de citoyens de diverses confessions religieuses.
Il y a des problemes de champignons dans d'autres ecoles.
Nous voulons optimiser les possibilites et les choix de programmes pour les eleves.
Je parle ici de jeunes de 14 et 15 ans.
L'apres-midi, elle doit refaire le meme trajet en sens inverse.
Ce genre de situation est frequent dans la province.
Les catholiques representent 37 p. 100 de la population dans notre province.
Nous sommes le groupe confessionnel le plus nombreux.
Nos enfants sont catholiques.
Les electeurs ont-ils compris la question?
Elle etait claire et simple.
Les deux camps ont beaucoup discute de la question dans les medias.
Nous avons demande une aide financiere, mais on nous l'a refusee.
Le programme d'enseignement religieux serait pareillement elabore par des specialistes.
En fait, on a demande leur participation aux divers groupes religieux.
Option est offerte aux enfants qui ont le choix de ne pas le suivre.
Ces conseils sont des organes reconnus par la loi.
En tant que parents, notre seul souci est l'interet de nos enfants.
En janvier, nous procederons a l'inscription de nos eleves du deuxieme cycle du secondaire.
Personne ne sait ou ils iront l'an prochain.
Tout se passait tres bien.
Tout ce que voulait cette mere, c'est une ecole qui soit proche.
Les religions peuvent-elles continuer de se developper a l'exterieur du systeme scolaire?
Mme Brenda Bryant , Education First:
J'aimerais eclaircir quelques points souleves plus tot.
Ce processus laissait gravement a desirer.
Ma fille de sept ans frequente cette ecole.
La majorite d'entre nous n'etions pas prets a prendre ce risque.
A l'heure actuelle, mes enfants jouent avec les enfants du quartier.
Que vais-je dire a mes enfants?
Les parents veulent que leurs enfants frequentent l'ecole de quartier.
Laissez-les jouer et prier ensemble.
Laissez-les apprendre ensemble.
Je vous remercie de vos exposes, Mme Obey et Mme Bryant.
Nous allons maintenant passer aux questions.
Je vous remercie des exposes que vous avez presentes ici aujourd'hui.
Je suis originaire de l'Ontario.
Selon mon interpretation de la Constitution, une question importante se pose a nous.
Vous etes toutes deux des parents de religion catholique.
Oui, j'en suis persuadee.
Je le repete, nous sommes un groupe multiconfessionnel.
Il etait forme de gens de toutes les religions, y compris la religion catholique.
Je tiens a dire que cela cree une confusion totale dans notre province.
Nous avons un conseil scolaire dans St. John's-Est qui est divise.
Les membres catholiques romains sont plus nombreux que ceux des autres religions.
Les conseillers scolaires ne peuvent prendre aucune decision en matiere d'enseignement.
Ils sont toujours en conflit.
Les gens en ont assez.
Ils veulent aller de l'avant.
Je suis moi aussi d'accord la-dessus.
Je voudrais vous donner l'occasion de developper deux points.
Il s'agit assurement d'un point important.
Elle a rouvert pour des raisons liees a la question religieuse.
C'est le contraire, chez nous, dans l'ouest du pays.
Cela semble plus raisonnable.
Autrement dit, le fardeau fiscal ne semble pas aussi lourd.
Etes-vous capable de voir les choses d'un autre oeil?
Il y a 87 ecoles dans notre region d'Avalon est.
Ces sept eleves exigent une unite d'enseignement.
Nos unites d'enseignement sont calculees en fonction d'un enseignant pour 14,5 eleves.
Ces enfants auraient pu frequenter d'autres ecoles.
Leur unite d'enseignement a ete retiree a une ecole qui en avait besoin.
Certaines ecoles de St. John's ne devraient pas rester ouvertes.
Nous ne ferions pas de faveur aux proprietaires des immeubles.
Nous n'aurions pas a entretenir ces immeubles vetustes qui datent de 150 ans.
C'est a cela que sert notre argent a l'heure actuelle.
Nous examinons la question.
Nous voudrions que des parents siegent aux conseils.
A leur tour, les ecoles recoivent une partie de cet argent.
Nous administrons les ecoles.
Le directeur peut nous consulter et nous pouvons travailler ensemble afin de resoudre certains problemes.
Comment en etes-vous arrivee a cette conclusion?
J'aimerais en savoir un peu plus sur cet aspect.
Comme je l'ai dit, je ne suis pas statisticienne.
Autrement dit, pour 100 catholiques, il y a eu moins de 50 votes non.
Les chiffres etaient plus eleves dans d'autres secteurs.
Les gens de ces regions n'avaient aucune raison particuliere de voter non.
J'ajoute que ces quartiers sont tres majoritairement catholiques romains.
Vous avez dit 28 districts.
Vingt-huit districts sur combien?
Les toits coulent, il y a de l'amiante et toutes sortes d'autres problemes.
Toutefois, ces questions ne sont pas liees a la structure du systeme.
Par ailleurs, je trouve regrettable que vous minimisiez la valeur de votre systeme.
Je m'interesse a la volonte des Terre-Neuviens.
Nous avons beaucoup entendu parler du processus referendaire.
Nous en connaissons tres bien les complexites.
Ont-ils fait peu de cas de l'opinion de leurs electeurs?
Les deputes refletaient certainement l'opinion de leurs electeurs.
Nous avons ete tres heureux de le constater.
Nous ne savons cependant pas comment ils ont pu voter en prive.
Merci d'etre revenue.
La question est tres importante a ce stade-ci.
Les habitants de Terre-Neuve et du Labrador ont vote en faveur de la resolution.
Ils connaissaient la question.
Ils savaient ce que signifiait le projet de modification de la clause 17.
La religion a toujours joue un grand role dans notre societe.
Il ne fait aucun doute que nous voulons de l'instruction religieuse dans nos ecoles.
Leur confiance dans le processus democratique serait aneantie ou presque.
Ma question s'adresse a Mme O'Dea.
Vous avez tout a fait raison.
L'instruction religieuse et la possibilite d'observer les preceptes religieux seront protegees.
Je tiens a rappeler que rien n'interdit l'ouverture d'ecoles privees.
Nous avons, en fait, deux ecoles religieuses privees qui ne recoivent aucune subvention publique.
Les baptistes et les adventistes dirigent leur propre ecole.
Elle ne serait tout simplement pas financee a meme les fonds publics.
J'ai ecoute tres attentivement le temoignage qui nous a ete livre aujourd'hui.
Notre systeme d'education inquiete vivement des gens de toutes les regions du Canada.
On dit qu'il y a une crise de l'education.
Si j'en juge par votre temoignage, telle est bien la situation.
Que repondez-vous a cela?
Comment proposez-vous de proteger d'une facon ou d'une autre ces droits traditionnels?
Ou encore, vers la fin de la journee?
Est-ce qu'on aurait seulement le droit de faire cela?
Dans quelle mesure les jeunes recoivent-ils aujourd'hui une instruction morale de leurs parents?
Avez-vous des preuves tangibles de cela?
Notre societe est troublee en ce qui concerne l'education.
Croyez-vous qu'ils le font?
J'ose croire que je le fais.
J'ai eleve trois bons enfants.
Je crois que Brenda a eleve deux bons enfants.
Vous parlez de l'effondrement de l'ecole du dimanche.
L'ecole du dimanche existe encore dans certaines Eglises.
Certaines eglises catholiques offrent de tels cours.
Disons qu'une region est tres largement pentecotiste.
Cela se fait a trois niveaux.
Je tiens a souhaiter la bienvenue aux temoins.
Je n'ai jamais ete de cet avis.
C'est exactement le systeme qui est en place a Terre-Neuve actuellement.
Mes reserves ne concernent pas la question, mais bien la nouvelle clause proposee.
A mon avis, celle-ci est tres differente.
L'un des temoins pourrait-il repondre?
Je reconnais que la question a ete abondamment debattue.
Je me trompe peut-etre.
Il y a, en l'occurrence, une difference de principe fondamentale.
Je suis beaucoup plus proche de la position des eveques que de la votre.
Je vous remercie neanmoins de vos observations.
D'accord, honorables senateurs?
Monsieur le ministre, bienvenue encore une fois au Senat.
Je vous invite, si vous le desirez, a faire une declaration.
Bien sur, les senateurs connaissent l'appui du gouvernement a cette modification.
A cette occasion, la Cour supreme a explicitement declare que:
En ce qui concerne l'article 93, la Cour a dit:
Voyons de quoi il retourne.
Le quatrieme paragraphe de l'article 18 a trait a l'education.
Je sais que la clause 17 proposee precise que le gouvernement:
[...] doit prevoir un enseignement religieux qui ne vise pas une religion en particulier.
Par consequent, j'arrive a la conclusion que la clause proposee est conforme au pacte.
Le troisieme paragraphe de l'article 26 dit ceci:
Le deuxieme point dont je veux parler a trait au consentement des minorites touchees.
La Constitution canadienne est la loi fondamentale du Canada.
C'est pourquoi toute modification constitutionnelle doit etre examinee avec grand soin.
Les modifications constitutionnelles qui touchent une minorite exigent une prudence encore plus grande.
Il existe de nombreux droits et de nombreuses libertes.
a) la liberte de conscience et de religion;
c) la liberte de reunion pacifique;
d) la liberte d'association.
En tant que legislateurs, honorables senateurs, vous voyez certainement la difference.
Le Parlement federal doit tenir compte des circonstances precises dans chaque cas.
Je ne cherche pas a minimiser leurs preoccupations.
En conclusion, nous estimons que la preuve en faveur de la modification est ecrasante.
Merci, monsieur le ministre.
Pour moi, comme Clifford Lincoln l'a dit, des droits sont des droits.
Il m'est impossible de faire la nuance entre un droit et un autre.
Les parents ont aussi des droits.
En fait, au Canada et dans beaucoup de provinces, ce droit n'existe pas.
Ces provinces demeurent quand meme des democraties liberales.
Cette difference est importante.
Mais un droit est un droit.
Je pense qu'il est important de preciser cela tout de suite.
Je suis heureux que vous ne contestiez pas ce point.
Si c'etait la tyrannie de la minorite, les aristocrates seraient encore au pouvoir.
Nous devons en tenir compte.
Je n'insisterai pas.
Ils ont declare leur appartenance et ils se sont presentes devant le comite.
La position des eveques du Quebec etait peut-etre un peu plus conditionnelle.
On n'a pas tenu de referendum au Quebec.
Il etait important de savoir s'il y avait consensus.
Nous avons donc sollicite des avis, et l'avis des eveques est important.
Bon nombre d'associations, catholiques et autres, souscrivent a la modification.
Si les eveques etaient d'accord, je ne serais pas ici aujourd'hui.
Vous vous seriez prononces la-dessus depuis belle lurette.
Le probleme, c'est que les eveques s'y opposent.
On a ete unanime a voter pour a l'Assemblee legislative de Terre-Neuve.
Il vous faut tenir compte de tout cela.
C'est particulier a Terre-Neuve.
Je me demande jusqu'ou ca ira.
Je vais m'arreter ici.
C'est en partie ce qui explique la tenue du referendum.
La meme chose s'applique au Quebec.
Nous devons tenir compte de tout cela.
Je crois que nous devons en tenir compte.
C'est fort possible.
Je vous remercie, monsieur le ministre et monsieur le president.
Merci d'etre ici, monsieur le ministre.
Je maintiens que ce n'est pas un droit fondamental.
Je ne suis pas en desaccord avec vous.
Vous avez parle de l'article 35 touchant les droits des autochtones.
Ainsi, la Constitution reflete le fait que l'article 35 est important.
La seconde partie de votre question portait sur les pentecotistes.
Nous devons tenir compte des divers aspects.
Ce n'est pas facile d'identifier ces gens dans le cadre du vote.
Le vote des deputes pentecotistes a l'assemblee legislative prend alors une importance nouvelle.
Je crois qu'il nous faut maintenant tourner la page.
J'appuierai la resolution.
Monsieur le ministre, veuillez repondre directement a la question.
Il est facile de tenir un vote.
Apres tout, plus la minorite est petite, plus elle sera ecrasee par un referendum.
Mais 72 p. 100, c'est un appui ferme.
Comme M. Regular l'a mentionne, nous n'avons aucune certitude.
Il ne peut certes affirmer que sa population etait opposee.
C'est donc que la population n'etait pas categoriquement opposee a la proposition.
S'il y avait eu une forte opposition, le taux de participation aurait ete eleve.
Comprenez-vous le sens de ma question?
Je comprends tres bien le sens de la question.
Je ne voulais pas froisser votre susceptibilite.
Je vais essayer d'eliminer cette impression.
Il maintenait des droits confessionnels qui ne sont plus maintenus maintenant.
Les deux personnes qui ont parle apres eux etaient catholiques aussi.
D'ailleurs, j'ai eu beaucoup de questions la-dessus.
Il y a aussi cette consideration dont il faut tenir compte.
Dans une societe, je m'opposerais a ce que seulement les minorites doivent voter.
Ce n'est pas ainsi que l'on forme une societe.
Je n'ai aucune question sur les merites de l'amendement.
Les personnes qui ont temoigne avant moi l'ont amplement demontre.
On a toujours procede par voie bilaterale.
C'est probablement l'inverse dans toutes les autres provinces.
Dans les autres provinces, on insiste toujours sur les droits des minorites.
Ce qui est protege, c'est la religion, ce sont les groupes religieux.
L'archeveque dit non, les deux temoins suivants disent oui.
Si j'ai bien compris votre expose, vous dites oui.
Comment arrivez-vous a cette conclusion?
Vous nous dites que la majorite a vote en faveur de l'amendement.
Donc, il faut voir le contexte.
Il n'y a rien dans la Constitution n'exige un referendum.
Rien ne l'interdit non plus.
Il faut tenir compte du contexte.
Le vote a Terre-Neuve a ete unanime aussi, que je sache.
Est-ce que vous avez des chiffres a ce sujet?
Rappelez-vous que le taux de participation est assez faible.
C'est un phenomene de sociologie electorale bien connu.
Malgre tout, vous avez eu des majorites dans ces circonscriptions a forte concentration catholique.
Aux fins de cet amendement, le cas est resolu.
On est tous d'accord la-dessus.
Les parents ont le droit de reclamer une education religieuse pour leurs enfants.
La liste des senateurs qui doivent intervenir est longue.
Toutefois, s'il s'agit d'une question supplementaire, le senateur peut continuer.
Vous avez fait la distinction entre les droits fondamentaux et d'autres droits.
Il peut sans doute essayer de le faire.
Vous admettrez avec moi que ce sont quand meme des democraties liberales tres respectables.
Cela depend de la composition religieuse des societes.
Moi aussi, je souhaite la bienvenue a l'honorable ministre.
L'article 92 de la Constitution porte sur les droits exclusifs des provinces.
Je ne suis pas certain que ce soit la bonne attitude a adopter.
On peut maintenant voir que c'etait la majorite d'une minorite.
Si cela devait se produire un jour, ce serait terrible.
M. Brassard a demande ce changement.
Evidemment, le Parlement du Canada est aussi le Parlement du Quebec.
Senateurs, il importe que vous preniez votre decision.
Vous laissez entendre le contraire de ce que le gouvernement pequiste a dit.
Oui, nous devons nous en mefier.
Je peux me mefier de mes amis.
A mon avis, les gouvernements provinciaux sont nos partenaires constitutionnels.
Nous devons tenir compte de leurs points de vue.
Cela fait partie du critere dont nous devons tenir compte.
C'est bien different.
Je veux travailler avec les gouvernements provinciaux.
Cela a trait au probleme de l'identification de la position des minorites touchees.
Le souvenir que j'ai de la situation est un peu different.
Il m'a dit que c'etait impossible.
Par la suite, j'ai entendu faire la meme affirmation ici au cours du debat.
C'etait assez ahurissant.
Ils n'avaient aucun document a ce sujet.
J'ai demande a voir des documents, mais il n'en existait aucun.
Je n'en ai pas eu de nouvelles depuis.
Pouvez-vous, monsieur le ministre, fournir des preuves a l'appui de cette affirmation?
Ce serait tres apprecie.
Je soutiens qu'on ne peut trouver pareille offre, ni aucune preuve de cette offre.
Nous croyons comprendre que cette possibilite leur a ete offerte.
Vous croyez le comprendre, mais vous n'avez rien pour le justifier.
Je viens de vous en donner une.
Je n'ai jamais entendu parler d'un vote tenu de cette facon.
Lorsque je vais voter, je ne tiens pas a m'identifier comme francophone.
Je ne comprends pas vos reserves.
De toute facon, la question est bien secondaire.
Il ne m'imcombe pas de concevoir un systeme.
Si ce n'est pas vrai, il faut nous montrer tres prudents dans nos declarations.
Monsieur le ministre, vous avez peut-etre raison a ce sujet.
Je ne le nie pas.
Je dois conclure que cela vous est impossible.
Nous sommes certains que l'issue sera celle que nous attendons.
Il m'est difficile de repondre a cette question.
Je ne saurais l'expliquer etape par etape.
Je n'ai malheureusement pas reponse a tout.
Au moins deux autres senateurs ont parle de leur experience dans l'Ouest.
Il semble que les choses soient tres differentes dans l'Ouest qu'a Terre-Neuve.
Beaucoup d'ecoles confessionnelles ouvrent leurs portes la-bas.
Avez-vous considere cela?
Il s'agira d'une modification bilaterale.
Cela doit etre tres clair.
Le fait que nous supprimions ce systeme a Terre-Neuve ne changera rien en Saskatchewan.
Parfois, nous tirons terriblement peu de lecons de l'histoire.
J'etais a New York il y a trois semaines environ.
Il semble que nous allions dans la direction opposee.
Les relations entre la religion et la vie publique ont change depuis le XIXe siecle.
C'est un debat de l'opinion publique dont nous pourrions tenir compte.
Pour le gouvernement du Canada, la liberte de religion est sacree.
Je souhaite la bienvenue au ministre aujourd'hui.
Oui, j'ai dit cela dans le passe.
Nous devons savoir avec certitude quels sont nos vrais partenaires constitutionnels.
J'ai le plus grand respect pour la Constitution du Canada.
Le Senat du Canada joue un important role sur le plan constitutionnel.
Vous remplissez votre devoir.
J'ai le plus grand respect pour tous les senateurs.
J'en connais beaucoup personnellement et je les respecte enormement.
Pouvons-nous revenir a la question a l'etude?
La resolution modifiant la clause 17, dont nous sommes saisis, prevoit:
[...] l'Assemblee legislative [...] peut organiser des cours de religion [...]
Il ne s'agit pas de cela aujourd'hui.
Ce n'est pas le cas actuellement.
Monsieur le ministre, avez-vous deja entendu parler de Paul Marshall?
Il est a l'Universite de Toronto.
Il a declare ceci:
L'enseignement religieux est le terreau de la liberte religieuse.
M. Marshall a ecrit en 1997 un livre intitule Their Blood Cries Out .
Personne n'empeche l'instruction religieuse.
Tout cela continuera d'exister a Terre-Neuve comme cela existe ailleurs au Canada.
Vous ne m'avez pas persuadee.
Vous pourriez certainement remporter une medaille d'or aux Jeux olympiques.
J'aborde la question du point de vue d'un Ontarien.
Pourriez-vous dire quelque chose a ce sujet?
Senateur, il est extremement important de tenir compte du contexte propre a chaque province.
Il faut tenir compte du contexte propre a chaque province.
Il faut tenir compte du contexte propre a chaque province.
C'etait il y a 48 ans.
La population n'aurait pas donne son appui a un pareil changement.
Cela ne correspond pas a l'esprit de la Constitution.
Lorsqu'une chose est inscrite dans la Constitution, on dit qu'elle est enchassee.
Il etait important pour tous de discuter du bien-fonde des changements proposes.
C'est surtout l'appui de la minorite qui souleve une question.
Les pentecotistes n'ont obtenu ce droit qu'en 1987.
Nous devons modifier la Constitution pour qu'elle reflete les changements survenus dans la societe.
Les racines sont les memes, mais l'arbre se transforme de differentes facons.
La Constitution n'est pas une camisole de force.
Monsieur le ministre, merci d'etre venu et merci pour votre temoignage bien reflechi.
Nous ne traitons pas de droits fondamentaux en l'occurrence.
En tant que senateurs, nous devons etre sensibles aux differences dans la Constitution.
De quoi s'agit-il dans le cas de Terre-Neuve?
Excusez-moi, senateur, a quoi vous reportez-vous au juste?
Je me reporte a la clause 17 actuelle.
Je vais maintenant passer aux changements proposes dans la resolution dont nous sommes saisis.
Cela comprend des cours d'anthropologie.
Voila ce que ca veut dire.
Senateur Bolduc, vous avez peut-etre raison.
Je passe au paragraphe suivant.
Voyons maintenant ce que dit le dictionnaire au mot observance.
L'observance est definie ainsi:
Action d'observer habituellement, de pratiquer une regle en matiere religieuse;
regle, loi religieuse prescrivant l'accomplissement de pratiques.
On substitue une chose pour une autre.
Ce n'est pas ce que les tribunaux ont dit.
Il semble que c'est ce qu'ils ont dit.
Je crois que la modification demandee a deja trop tarde.
Elle sera benefique pour les enfants de Terre-Neuve.
Elle sera compatible avec la Charte et avec les pactes internationaux.
Elle etait geree par l'Eglise anglicane et payee a meme l'argent des contribuables.
Les ministres anglicans venaient a l'ecole nous enseigner la religion.
La Constitution ne leur accordait aucun droit.
Ils n'avaient pas le droit de pratiquer leur propre religion.
Or, elles auront des droits en vertu de la clause 17 modifiee.
Ce droit sera expressement inscrit dans la loi.
Il sera dorenavant question de l'egalite des minorites.
Il y avait auparavant inegalite.
La clause 17 etait l'equivalent de l'article 93.
Elles n'ont pas cesse de le faire.
C'etait inscrit dans la Constitution, a la clause 17.
La clause 17, c'etait donc, en definitive, l'article 93.
Voila ce qu'il importe de comprendre.
Senateur Rompkey, avez-vous une question a l'adresse du ministre?
Le senateur a suscite un peu de passion dans ce debat.
Bien des gens eprouvent des difficultes aujourd'hui a cause du systeme actuel.
Mais elles seront moindres pour une bonne partie de la population.
Et puis, chaque confession conservera le droit d'avoir des ecoles privees.
Je suis egalement d'accord avec les deux temoins que nous avons entendus.
Cet argument ne s'applique pas dans ce cas-ci.
Il est question ici du systeme d'education de la population de Terre-Neuve.
Je doute que ce soit le type de democratie que nous avons au Canada.
Il est formidable de pouvoir dire: Voyons ce que la minorite veut.
Je regrette, mais je n'ai aucune question a poser.
Je voudrais faire une observation, monsieur le president.
Quoique les elements de preuve que je vous ai presentes sont probants.
Je vous remercie, monsieur le ministre, pour votre grande contribution a nos deliberations.
Cela nous aide beaucoup a mieux comprendre les importantes questions a l'etude.
Merci encore, M. Dion.
Honorables senateurs, m'autorisez-vous a prendre la parole pour faire rapport?
Son Honneur le President :
Honorables senateurs, le Senat reprend sa seance.
Rapport du comite plenier
Votre Honneur, le comite plenier signale qu'il a termine ses deliberations.
Les Affaires indiennes et le Nord canadien
La creation d'un fonds pour les centres de guerison-La position du gouvernement
L'honorable Thelma J. Chalifoux :
Comment ces sommes seront-elles reparties?
C'est le genre de question qu'il faut regler avec les trois peuples autochtones.
Il s'agit des Inuit, des Premieres nations et des Metis.
Quelle excuse avons-nous?
Bref, tous les enfants n'etaient pas traites sur un pied d'egalite.
Mon pere et mon oncle ont ete places dans l'ecole pour garcons pieds-noirs.
Les Pieds-Noirs et les Cris ont toujours ete de farouches ennemis.
Beaucoup de nos femmes autochtones ont quitte les reserves pour de nombreuses raisons differentes.
Il n'est pas simplement question de mauvais traitements subis dans les pensionnats.
Il faut s'attaquer a cette tragedie touchant des generations.
Honorables senateurs, je suis confrontee quotidiennement aux resultats de ces mauvais traitements.
C'est une question tres grave sur laquelle on doit se pencher immediatement.
Pourquoi investir davantage a l'etranger
L'honorable Philippe Deane Gigantes :
C'est la la version simplifiee de ma question.
Aujourd'hui, je voudrais parler du contexte dans lequel se situe ma question.
Selon eux, il n'y a pas de probleme avec l'offre.
Mes deux amis me disent que cette situation nous touchera.
Combien de milliards les investisseurs de Reichmann ont-ils perdu?
Pourquoi les gestionnaires de Bramalea ont-ils perdu leur chemise, ou plutot celle des investisseurs?
Je suis un liberal.
Je rejette tous les dogmes.
Son Honneur le President :
Est-ce que la permission de continuer lui est accordee?
Son Honneur le President :
Je regrette, la permission n'est pas accordee.
L'imposition d'amendes pour une infraction a la loi sur la langue d'affichage
L'honorable Jerahmiel S. Grafstein :
Je me demande ce que Camus aurait pense de ce qui se passe au Quebec.
Il y a une consolation dans cette etrange affaire.
C'est en effet le temps des fetes et de l'emerveillement.
L'honorable Jean-Claude Rivest :
L'UNICEF parle d'une crise silencieuse, parce qu'elle est essentiellement invisible.
La situation est en grande partie evitable.
Nous avons les connaissances scientifiques.
Nous connaissons les meilleures pratiques a appliquer.
C'est la volonte politique qui nous fait defaut.
Depot du rapport annuel du bibliothecaire du Parlement
Son Honneur le President :
Les travaux du Senat
Autorisation du comite plenier a rembourser les frais de deplacement
L'honorable Sharon Carstairs (leader adjoint du gouvernement) :
Honorables senateurs, avec la permission du Senat, je propose:
Son Honneur le President :
Honorables senateurs, est-ce d'accord?
L'honorable Donald H. Oliver :
Selon le rapport, le gouvernement n'en emploierait que 4,7 p. 100.
L'honorable B. Alasdair Graham (leader du gouvernement) :
Honorables senateurs, c'est une excellente question.
J'aimerais avoir une reponse tout aussi bonne a offrir.
L'honorable Donald H. Oliver :
Aucune initiative ne semble toutefois avoir ete prise pour les minorites visibles.
L'honorable B. Alasdair Graham (leader du gouvernement) :
Le manque de representants des minorites visibles travaillant au Senat-La position du gouvernement
L'honorable Consiglio Di Nino :
Honorables senateurs, ma question s'adresse au leader du gouvernement au Senat.
L'honorable B. Alasdair Graham (leader du gouvernement) :
Honorables senateurs, c'est une autre bonne question.
C'est meme la troisieme bonne question consecutive.
Le probleme souleve par le senateur est reel.
Les pretendues enseignes au Centre Corel-La position du gouvernement
L'honorable Jean-Maurice Simard :
J'estime qu'il incombe au leader du gouvernement de donner des explications.
L'honorable B. Alasdair Graham (leader du gouvernement) :
Je voudrais pouvoir vous donner des explications.
C'est tout nouveau pour moi.
Les projets gaziers de l'ile de Sable-Rumeurs d'accord
L'honorable Jean-Maurice Simard :
Il s'agit d'un article de Michael Tutton, du groupe Irving.
Tutton cite un autre representant d'Irving Oil qui declare:
C'est une tres bonne nouvelle pour le Canada atlantique.
Depuis 25 ans, je defends Irving.
Son Honneur le President:
Honorable senateur Simard, pourriez-vous poser votre question?
L'honorable B. Alasdair Graham (leader du gouvernement) :
La premiere phrase dit ceci:
La reponse a la question precise qui m'a ete posee est oui.
Je ne sais pas si une annonce aurait du etre faite immediatement.
Nous verrons si une annonce serait faite bientot.
L'honorable John G. Bryden :
Honorables senateurs, ma question s'adresse au leader du gouvernement au Senat.
Le leader a-t-il des informations quant a la cause de cet accident?
L'honorable B. Alasdair Graham (leader du gouvernement) :
Honorables senateurs, je remercie le senateur Bryden pour sa question.
Comme il le sait, la securite est la principale priorite du gouvernement.
Il est trop tot pour speculer sur les causes probables de l'accident.
Tous les senateurs devraient en avoir une copie.
L'honorable B. Alasdair Graham (leader du gouvernement) :
Honorables senateurs, j'ai la reponse differee a cette question.
Je ne sais pas si des travailleurs ont ete mutes.
Quelle est la politique appliquee dans la fonction publique a cet egard?
L'honorable B. Alasdair Graham (leader du gouvernement) :
Oui, je donnerai certainement suite a votre demande.
L'honorable B. Alasdair Graham (leader du gouvernement) :
Evidemment, il ont deja demande de l'aide au gouvernement federal a cet egard.
L'epidemie est-elle enrayee?
Le leader du gouvernement a-t-il du nouveau a nous informer?
Le probleme n'existe que depuis deux semaines.
L'honorable B. Alasdair Graham (leader du gouvernement) :
L'honorable Eymard G. Corbin :
Le leader est-il au courant de ces demarches?
L'honorable B. Alasdair Graham (leader du gouvernement) :
Oui, je me ferai un plaisir de le faire.
Reponses differees a des questions orales
L'honorable Sharon Carstairs (leader adjoint du gouvernement) :
(Reponse a la question posee par l'honorable Mira Spivak le 16 decembre 1997)
Il a egalement renouvele l'alerte frontaliere generale relative a l'importation illegale du medicament.
Les employes peuvent se prevaloir des procedures de griefs en vigueur au ministere.
La decision du ministere sera communiquee aux interesses des qu'elle aura ete rendue.
Les travaux du Senat
L'aeroport international Pearson-Question au Feuilleton-Demande de reponse
L'honorable John Lynch-Staunton (chef de l'opposition) :
L'honorable B. Alasdair Graham (leader du gouvernement) :
Je n'ai pas dormi hier soir.
J'ai passe une nuit blanche.
Projet de loi sur l'Office d'investissement du Regime de pensions du Canada
L'honorable John Lynch-Staunton (chef de l'opposition) :
Le senateur Kirby entend-il prendre la parole a l'etape de la troisieme lecture?
J'aimerais alors faire quelques remarques tres breves.
Il l'a dit a plus d'une reprise.
Nous sommes d'accord pour dire que ces augmentations sont necessaires.
Voila les deux observations que je voulais formuler.
L'honorable John G. Bryden :
Il y a une autre region du Canada qui aimerait peut-etre se faire entendre.
C'est pour cette raison que nous voyagerons.
J'aimerais poser une question au president du comite des banques.
Hier, les honorables senateurs parlaient de formules.
C'est une region ou tout coute tres cher.
Honorables senateurs, je ne connais pas la reponse exacte a cette question.
J'ai un autre point a soulever.
Ils peuvent se le permettre.
L'honorable Jean-Maurice Simard :
J'ai fait des declarations tres breves en presence du ministre Paul Martin, hier.
Le ministre des Finances, M. Paul Martin, n'a pas suffisamment repondu a mes questions.
J'adresse ma question au parrain du projet de loi.
Son Honneur le President :
Si aucun autre senateur ne...
J'ai pose une question.
J'ai droit a une reponse.
Son Honneur le President :
Ce n'est pas la periode des questions.
Je suis au Senat depuis 30 ans.
On peut poser des questions au cours du debat sur une motion portant troisieme lecture.
Son Honneur le President :
Cependant, je ne peux obliger personne a y repondre.
Le senateur Kirby repondrait-il?
Son Honneur le President :
Si aucun autre senateur ne...
Son Honneur le President :
Ceci est le debat en troisieme lecture.
Votre Honneur, j'invoque le Reglement.
J'ai pose une question.
Je termine en disant que je vais voter contre le projet de loi.
Son Honneur le President :
Quel est votre rappel au Reglement, senateur Simard?
Plait-il aux honorables senateurs d'adopter la motion?
L'honorable Consiglio Di Nino :
Son Honneur le President informe le Senat qu'il a recu la communication suivante:
Le secretaire du Gouverneur general,
Son Honneur le President:
Son Honneur le President :
L'honorable Noel A. Kinsella (chef adjoint suppleant de l'opposition) :
Son Honneur le President :
Etes-vous d'accord, honorables senateurs?
(La motion d'amendement est retiree.)
Son Honneur le President :
Plait-il aux honorables senateurs d'adopter la motion?
(La motion est adoptee avec dissidence, et le rapport est adopte.)
MODIFICATION DE LA CONSTITUTION DU CANADA
Cette note etait adressee au leader adjoint du gouvernement.
Par contre, je sais ceci.
Il aurait ete impensable de ne pas recueillir son temoignage.
Nous avons egalement recueilli le temoignage de Mme O'Dea et de Mme Bryant.
Ces deux temoins ont aussi comparu devant le comite mixte.
La participation aux elections provinciales a Terre-Neuve est rarement inferieure a 70 p. 100.
Pourquoi ai-je donc change d'avis?
La question n'a meme pas ete renvoyee a un comite.
C'est une excellente formulation tout a fait canadienne.
Elle figure dans la Charte canadienne des droits et libertes.
Il y a eu contestation devant les tribunaux.
Une demande d'injonction a ete presentee aux tribunaux et agreee par ces derniers.
A mon avis, tout cela est tellement inutile.
Il n'est pas question de l'Irlande du Nord.
Toutefois, le sang a monte a la tete des autorites du gouvernement provincial.
Que nous demande-t-on en l'occurrence?
Il existe actuellement un systeme scolaire confessionnel a Terre-Neuve.
On nous demande de constitutionnaliser des cours de religion generiques.
Des contestations en vertu de la Charte seraient inevitables.
Il y a eu deux referendums, deux solutions et deux debats.
Si la mesure est adoptee, on aura modifie la Constitution a deux reprises.
Cela deviendra un evenement annuel.
Et on nous accuse de risquer de creer le chaos!
En fait, ils ont corrige mon impression precedente.
Son Honneur le President :
Demandez-vous la permission de continuer?
Je remercie les senateurs.
Je ne serai pas trop long.
Que dirions-nous d'une situation semblable au Manitoba?
Je ne veux meme pas y penser.
Honorables senateurs, je dirai simplement ceci.
Nous parlons ici de petites minorites.
Les pentecotistes representent 6 p. 100 de la population terre-neuvienne.
Ils ont 13 ou 14 ecoles.
Ils n'ont qu'une ecole.
L'honorable Sharon Carstairs (leader adjoint du gouvernement) :
L'honorable B. Alasdair Graham (leader du gouvernement) :
J'ai fait mon propre examen de conscience.
Le message qu'ils nous ont adresse est clair et eloquent.
Ces circonstances existent-elles?
Permettez-moi de prendre un instant pour examiner certaines des questions les plus controversees?
Honorables senateurs, permettez-moi de vous lire la question qui a ete posee:
Je trouve difficile d'imaginer une facon plus claire de poser la question aux electeurs.
Les Canadiens prennent les elections et les referendums tres au serieux.
Nous devons prendre egalement leur decision au serieux.
Certains ont laisse entendre qu'une majorite de catholiques avaient peut-etre vote contre.
Je suis un catholique pratiquant.
J'eprouve le plus grand respect envers nos eveques.
Honorables senateurs, j'ignore combien se sont prononces.
Le vote secret est un element capital de notre processus democratique.
Il y a toutefois des choses que nous savons.
Ce sont des majorites solides.
La Loi constitutionnelle de 1982 etait donc adoptee depuis cinq ans.
La Constitution est claire.
Nous ne pouvons negliger notre responsabilite en modifiant unilateralement la formule de modification.
Comment la definition de l'appui d'une minorite fonctionnerait-elle en pratique?
Qu'en est-il des musulmans, des juifs ou des bouddhistes de Terre-Neuve?
Quel message leur transmettons-nous?
Honorables senateurs, cette facon de faire n'est pas canadienne.
Je crois que nous devons passer a autre chose.
Il a depuis change d'avis.
Le senateur Petten est en faveur de la modification proposee.
Ils estiment que le moment est venu de modifier leur systeme d'education.
Ils veulent un systeme unique dans lequel, selon le premier ministre Tobin:
Honorables senateurs, ce sont la des valeurs que je respecte.
Ce sont les valeurs qui sont cheres au Canada en tant que nation.
Voila en faveur de quoi les residents de Terre-Neuve et du Labrador ont vote.
Elle est signee Elizabeth Noseworthy, enseignante de Mount Pearl, a Terre-Neuve.
Je sais qu'il y a des Terre-Neuviens que le nouveau systeme inquiete.
C'est une affaire de confiance les uns dans les autres.
Comment pouvons-nous accepter que cela se fasse dans notre propre pays?
L'honorable Consiglio Di Nino :
Je pense qu'il a parle d'erreur religieuse.
Son Honneur le President :
Son Honneur le President :
Vous plait-il, honorables senateurs, d'adopter la motion?
Son Honneur le President :
Que les senateurs qui sont en faveur de la motion veuillent bien dire oui.
Son Honneur le President :
Que les senateurs qui sont contre la motion veuillent bien dire non.
Son Honneur le President :
A mon avis, les oui l'emportent.
Et deux honorables senateurs s'etant leves:
Son Honneur le President :
Le vote aura donc lieu a 15 h 35.
(La motion, mise aux voix, est adoptee.)
Projet de loi modificatif-Report du debat
L'honorable Consiglio Di Nino :
Bien sur qu'elle est tres importante.
Les travaux du Senat
L'honorable John Lynch-Staunton (chef de l'opposition) :
Honorables senateurs, je ne sais pas s'il s'agit d'un rappel au Reglement.
Je n'ai pas surveille l'heure d'assez pres.
Adoption du rapport du comite des affaires etrangeres
L'honorable John B. Stewart :
(La motion est adoptee, et le rapport est adopte.)
Adoption du rapport du comite des affaires etrangeres
L'honorable John B. Stewart :
(La motion est adoptee, et le rapport est adopte.)
L'honorable Jean B. Forest :
Apres la semaine que nous venons de passer, je me le demande encore.
Je plaisante, bien sur.
C'est une chance merveilleuse.
Les Famous Five de l'Alberta ont longtemps ete pour moi une source d'inspiration.
L'honorable Catherine S. Callbeck :
Elles devraient etre reconnues au meme titre que les autres grands leaders de notre pays.
Elle avait un mot d'ordre que je suis a la lettre.
Je recommande a tous et a toutes d'en faire autant.
Agissez simplement et laissez-les braire!
L'honorable Sharon Carstairs (leader adjoint du gouvernement) :
Honorables senateurs, je voudrais moi aussi participer a ce debat.
De nombreux Canadiens faisaient de meme.
Voila un autre lien avec le Manitoba, senateur Spivak.
Malheureusement, bon nombre des hommes qui dirigeaient les gouvernements a l'epoque partageaient ces idees.
Pour cela, nous avons toutes les raisons d'etre fiere d'elle.
Emily Murphy etait une conservatrice pure laine.
Nellie McClung etait elle aussi une liberale bon teint.
Elle etait tres detestee parce qu'elle etait fidele a sa cause.
Ce sont des femmes speciales, mais des femmes representatives.
Emily Murphy a ete contestee des son premier jour en tant que juge.
Je conviens que les femmes jouissaient de nombreux privileges bien avant ce cas en particulier.
Je suis allee chez elle.
Mes filles me disent qu'un jour l'une d'elle siegera aussi au Senat.
L'honorable Consiglio Di Nino :
Honorables senateurs, je veux faire une breve intervention.
Je dirai toutefois que j'appuie tout ce qui a ete dit.
L'honorable J. Michael Forrestall :
Honorables senateurs, je veux vraiment me joindre a cette celebration aujourd'hui.
C'est la celebration des efforts et de la contribution de ces femmes.
L'Ontario merite une plus grande representation feminine au Senat.
Je felicite tous mes collegues qui ont pris part a ce debat.
L'honorable Gildas L. Molgat :
Le Senat a nomme une femme comme President avant la Chambre des communes.
Nous avons aussi la premiere femme whip.
Le Senat a toutes les raisons d'etre fier.
Nous devrions nous efforcer d'y arriver.
Nous avons trois hommes et trois femmes senateurs.
Nous nous dirigeons vers l'egalite.
L'honorable A. Raynell Andreychuk :
Je ne repeterai pas tout ce que j'ai dit.
L'honorable Nicholas W. Taylor :
Sous peine de ne pas pouvoir rentrer chez vous.
Je crois comprendre que Frances Wright est a la tribune.
Nous pourrions peut-etre reconnaitre sa presence.
Frances incarne la determination et l'energie de ces cinq femmes remarquables.
Je n'etais peut-etre pas si pres de le devenir; je ne sais pas.
Sa fille etait une excellente joueuse de tennis et elle me battait tout le temps.
Il n'y a pas de raison pour que cela s'arrete la.
Nous devons rebatir le systeme.
Ce n'est que le debut.
Je suis impatient de voir une de mes filles me remplacer.
Merci de m'avoir permis de dire quelque chose a ce sujet.
Les Famous Five etaient certainement des personnes extraordinaires.
Son Honneur le President :
Plait-il aux honorables senateurs d'adopter la motion?
a ) que les ressources naturelles du Canada appartiennent a tous les Canadiens;
L'honorable Mabel M. DeWare :
Le Canada, le Quebec, la Nouvelle-Ecosse et le Nouveau-Brunswick avaient conclu un accord.
Le gazoduc s'en venait et nous sommes alles voir le site.
Comme je viens de le dire je faisais partie de la delegation.
J'ai meme une photo pour le prouver.
C'etait toute une experience pour nous.
Elle faisait une evaluation environnementale du trace.
Mobil Oil n'avait donc pas interet a comparaitre devant nous.
Le projet revetait une grande importance pour le Nouveau-Brunswick a l'epoque.
Il aurait permis de creer des milliers d'emplois.
Le senateur Simard a donc formule un argument valable.
Je sais que le cout est un element important.
L'honorable Celine Hervieux-Payette :
Je ne nie pas la competence de l'Office national de l'energie.
J'aurais voulu proposer un amendement.
L'honorable Jean-Maurice Simard :
J'ai ecoute et apprecie ses commentaires.
Je realise qu'elle n'a pas propose d'amendement.
L'hypothese de base etait sensee ce matin.
Je ne peux pas remettre en question la decision du gouvernement et du Cabinet.
L'honorable Jean-Maurice Simard :
J'espere que vous considerez que je souleve un bon rappel au Reglement.
Comme les autres, j'etais sincere et j'ai tenu parole.
J'invite le senateur Carstairs a nous donner ses raisons.
Son Honneur le President :
Je regrette, il n'y a pas de rappel au Reglement dans cette question.
Est-ce que le senateur Carstairs pourrait me repondre?
Elle peut volontairement faire une declaration.
C'est du double-cross de la part du senateur Carstairs.
L'honorable Sharon Carstairs (leader adjoint du gouvernement) :
Employer de tels termes, c'est manquer de respect aux honorables senateurs.
Vous etiez a votre siege.
Il n'y a eu aucune forme d'entente.
Il a fait une declaration.
Je n'y ai pas repondu.
Je me souviendrai de ce jour, le 18 decembre 1997.
L'honorable Nicholas W. Taylor :
Ils ont fini aussi par se retrouver avec le pipeline.
C'est tres exceptionnel.
Le rapport de la Commission d'examen public conjointe traite de la question.
Il semble que TransCanada et les autres soumissionnaires se soient manifestes terriblement tard.
Je voudrais m'attarder sur ce probleme.
Nous avons accepte de reduire nos emissions de carbone.
Il faut vraiment reflechir serieusement a la question.
Nous la vendons aux Americains pour qu'ils puissent reduire leurs emissions.
Quelque chose ne va surement pas.
Le Quebec exporte de l'electricite a partir de ces projets hydroelectriques.
Personne n'a etudie ces questions.
Tous posent la meme question.
Ajoutez l'accord de Kyoto a cela.
Au lieu de developper notre industrie petrochimique en Nouvelle-Ecosse, nous exportons cette ressource.
Quelqu'un doit reunir tous ces elements et proceder a une sorte de planification economique.
L'honorable Wilfred P. Moore :
L'honorable Eugene Whelan , conformement a l'avis du 17 decembre 1997, propose:
- Honorables senateurs, cette motion a ete appuyee par le senateur Spivak.
Il ont essuye un refus.
Souvenons-nous de la thalidomide, par exemple.
La vache laitiere de race du Canada jouit d'une reputation internationale.
Aucun scientifique ne peut garantir l'innocuite de cette pratique.
Nous demandons l'imposition d'un moratoire d'un an.
C'est peut-etre ce que nous devrions demander.
Laissez-moi vous dire, honorables senateurs, que ce n'est pas correct.
Honorables senateurs, je vous demande d'appuyer cette motion.
(Sur la motion du senateur DeWare, au nom du senateur Spivak, le debat est ajourne.)
L'honorable Michel Cogger , conformement a l'avis du 17 decembre 1997, propose:
Il y a donc un hiatus.
Je vous remercie de votre attention et vous souhaite a tous un Joyeux Noel.
Si la decision sur les helicopteres est arretee, nous nous reverrons peut-etre avant fevrier.
L'honorable J. Michael Forrestall :
Nous faisons simplement de notre mieux.
Les militaires canadiens nous ont donne des precisions sur l'equipement dont ils avaient besoin.
A leur avis, c'etait ce que nous pouvions obtenir de mieux.
Deuxiemement, le remplacement des Sea King embarques.
Un helicoptere serait interchangeable et interoperable.
L'appareil que les militaires ont recommande a bonne reputation.
Ils n'ont jamais de problemes dans des endroits faciles d'acces.
Cela fait cinq ans qu'on reporte la decision a plus tard.
C'est trop long.
Il y a des questions dont il faut discuter.
Le senateur Phillips a evoque cette possibilite il y a une semaine.
Il faut faire quelque chose.
Ils vont se debrouiller, je le sais, mais cela n'arrange rien.
Ces 500 millions ne representaient que les frais d'annulation.
Jusqu'a ce moment-la, nous avions paye un demi-milliard de dollars en acomptes.
Le cout avait grimpe a 980 millions de dollars, presque un milliard.
Les couts causes par ce retard se chiffrent a plus de 3 milliards de dollars.
D'autres retards occasionneront d'autres couts pour les contribuables.
A cela s'ajoute le cout du carburant pour l'entrainement.
Le veritable enjeu, en l'occurrence, ce sont des vies humaines.
L'honorable Sharon Carstairs (leader adjoint du gouvernement) :
b) fixer une date appropriee...
La motion constitue une directive a l'intention du President.
Honorables senateurs, la motion n'a jamais ete declaree irrecevable.
En outre, la nature meme de la motion...
Honorables senateurs, je n'ai accepte de repondre a aucune question.
J'ai propose l'ajournement du debat.
Senateur Cogger, l'honorable senateur Carstairs a propose l'ajournement du debat.
L'honorable Eric Arthur Berntson:
Il faut pour cela le consentement unanime.
Une motion d'ajournement n'est pas correcte.
Son Honneur le President suppleant :
Comment voulons-nous voter?
Nous allons seulement reporter le vote a demain soir!
Voulons-nous voter a 17 h 30 demain?
Son Honneur le President suppleant :
Plait-il aux senateurs d'adopter la motion?
Son Honneur le President suppleant :
A mon avis, les oui l'emportent.
La motion est adoptee.
Autorisation au comite de se deplacer
Son Honneur le President suppleant :
Plait-il aux senateurs d'adopter la motion?
Permission ayant ete accordee de revenir aux affaires courantes:
L'honorable Sharon Carstairs (leader adjoint du gouvernement) :
Son Honneur le President suppleant :
La permission est-elle accordee, honorables senateurs?
L'honorable William J. Petten
L'honorable M. Lorne Bonnell
L'honorable P. Derek Lewis :
Je voudrais dire quelques mots a ce sujet, si vous me le permettez.
Notre amitie date depuis longtemps, comme celle de nos deux familles.
J'ai aime le cotoyer au cours de ces annees.
Il a tres bien represente notre province.
(Le Senat s'ajourne a loisir.)
La Chambre des communes priee de se presenter, arrive avec son vice-president.
La Chambre des communes se retire.
Il plait a Son Excellence le Gouverneur general de se retirer.
Son Honneur le President :
Qu'elle soit pour vous tous une annee de sante.
L'honorable Noel A. Kinsella (chef adjoint suppleant de l'opposition) :
Meilleurs voeux pour la nouvelle annee.
L'honorable Sharon Carstairs (leader adjoint du gouvernement) :
Honorables senateurs, joyeux Noel a tous.
L'honorable William J. Petten :
Je vous souhaite a tous un joyeux Noel et une bonne et heureuse annee.
Ce fut tres agreable d'etre parmi vous pendant toutes ces annees.
Que le Senat s'ajourne maintenant.
Le Senat s'ajourne a 14 heures, le mardi 10 fevrier 1998.


text:
      SUBROUTINE FMAT(FMATRX, TSCF, TDER, DELDIP, HEAT)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      INCLUDE 'SIZES'
      DIMENSION FMATRX(*), DELDIP(3,*)
***********************************************************************
*
*  VALUE CALCULATES THE SECOND-ORDER OF THE ENERGY WITH
*        RESPECT TO THE CARTESIAN COORDINATES I AND J AND PLACES IT
*        IN FMATRX
*
*  ON INPUT NATOMS  = NUMBER OF ATOMS IN THE SYSTEM.
*           XPARAM  = INTERNAL COORDINATES OF MOLECULE STORED LINEARLY
*
*  VARIABLES USED
*           COORDL  = ARRAY OF CARTESIAN COORDINATES, STORED LINEARLY.
*           I       = INDEX OF CARTESIAN COORDINATE.
*           J       = INDEX OF CARTESIAN COORDINATE.
*
*  ON OUTPUT FMATRX = SECOND DERIVATIVE OF THE ENERGY WITH RESPECT TO
*                    CARTESIAN COORDINATES I AND J.
***********************************************************************
      COMMON /KEYWRD/ KEYWRD
      COMMON /GEOKST/ NATOMS,LABELS(NUMATM),
     1                NA(NUMATM),NB(NUMATM),NC(NUMATM)
      COMMON /GEOVAR/ NVAR,LOC(2,MAXPAR),IDUMY, DUMY(MAXPAR)
      COMMON /DENSTY/ P(MPACK),PDUMY(2,MPACK)
      COMMON /TIME  / TIME0
      COMMON /CORE  / CORE(107)
      COMMON /MOLKST/ NUMAT,NAT(NUMATM),NFIRST(NUMATM),NMIDLE(NUMATM),
     1                NLAST(NUMATM), NORBS, NELECS,NALPHA,NBETA,
     2                NCLOSE,NOPEN,NDUMY,FRACT
      COMMON /COORD / COORD
      COMMON /SCRACH/ EVECS(MAXPAR*MAXPAR)
      DIMENSION COLD(MAXPAR), GRAD(MAXPAR), COORD(3,NUMATM),
     1GROLD(MAXPAR), COORDL(MAXPAR), Q(NUMATM), DEL2(3)
     2, EIGS(MAXPAR),
     3 FCONST(MAXPAR)
      CHARACTER*80 KEYWRD
      LOGICAL DEBUG, DERIV, RESTRT
      CHARACTER SPACE*1, DOT*1, ZERO*1, NINE*1, CH*1
      EQUIVALENCE (COORD(1,1),COORDL(1))
      DATA SPACE,DOT,ZERO,NINE /' ','.','0','9'/
      DATA FACT/6.95125D-3/
C
C    FACT IS THE CONVERSION FACTOR FROM KCAL/MOLE TO ERGS
C
C SET UP CONSTANTS AND FLAGS
      NA(1)=99
C
C  SET UP THE VARIABLES IN XPARAM ANDLOC,THESE ARE IN CARTESIAN COORDINA
C
      NUMAT=0
      DO 10 I=1,NATOMS
         IF(LABELS(I).NE.99.AND.LABELS(I).NE.107) THEN
            NUMAT=NUMAT+1
            LABELS(NUMAT)=LABELS(I)
         ENDIF
   10 CONTINUE
      NATOMS=NUMAT
C
C   THIS IS A QUICK, IF CLUMSY, WAY TO CALCULATE NUMAT, AND TO REMOVE TH
C   DUMMY ATOMS FROM THE ARRAY LABELS.
C
      NVAR=0
      DO 20 I=1,NUMAT
         DO 20 J=1,3
            NVAR=NVAR+1
            LOC(1,NVAR)=I
            LOC(2,NVAR)=J
   20 CONTINUE
      LIN=(NVAR*(NVAR+1))/2
      DO 30 I=1,LIN
   30 FMATRX(I)=0.D0
      RESTRT =(INDEX(KEYWRD,'RESTART') .NE. 0)
      IF(INDEX(KEYWRD,'NLLSQ') .NE. 0) RESTRT=.FALSE.
      DEBUG =(INDEX(KEYWRD,'FMAT') .NE. 0)
      DERIV=(NCLOSE .EQ. NOPEN .AND. INDEX(KEYWRD,'C.I.') .EQ. 0)
      WRITE(6,'(//4X,''FIRST DERIVATIVES WILL BE USED IN THE''
     1,'' CALCULATION OF SECOND DERIVATIVES'')')
      TIME=3600
      I=INDEX(KEYWRD,' T=')
      IF(I.NE.0) THEN
         TIM=READA(KEYWRD,I)
         DO 40 J=I+3,80
            CH=KEYWRD(J:J)
            IF( CH .NE. DOT .AND. (CH .LT. ZERO .OR. CH .GT. NINE)) THEN
               IF( CH .EQ. 'M') TIM=TIM*60
               GOTO 50
            ENDIF
   40    CONTINUE
   50    TIME=TIM
         WRITE(6,'(/10X,''TIME DEFINED FOR THIS STEP ='',F19.2,
     1    '' SECONDS'')')TIME
      ELSE
         WRITE(6,'(/10X,''DEFAULT TIME OF'',F8.2,
     1    '' SECONDS ALLOCATED FOR THIS STEP'')')TIME
      ENDIF
      TLEFT  = TIME-SECOND()+TIME0
      IF(RESTRT) THEN
         DO 60 I=1,NVAR
   60    COLD(I)=COORDL(I)
         ISTART = 0
         I=0
         CALL FORSAV(TOTIME,DELDIP,ISTART,I,FMATRX, COORD, NVAR,HEAT,
     1                EVECS,JSTART,FCONST)
         KOUNTF=(ISTART*(ISTART+1))/2
         ISTART=ISTART+1
         JSTART=JSTART+1
         TIME2 = SECOND()
         IF(ISTART.GT.NVAR) GOTO 160
      ELSE
         TOTIME=0.D0
         IF (TSCF.GT.0.D0)TLEFT=TLEFT-TSCF-TDER
         ISTART=1
      ENDIF
      CONST =60
      DELTA =0.5D0/CONST
C CALCULATE FMATRX
      IF(ISTART.GT.1) THEN
         ESTIME=(NVAR-ISTART+1)*TOTIME/(ISTART-1.D0)
      ELSE
         ESTIME=NVAR*(TSCF+TDER)*2.D0
      ENDIF
      IF(TSCF.GT.0)
     1WRITE(6,'(/10X,''ESTIMATED TIME TO COMPLETE CALCULATION =''
     2,F9.2,'' SECONDS'')')ESTIME
      IF(RESTRT) THEN
         IF(ISTART.LE.NVAR)
     1    WRITE(6,'(/10X,''STARTING AGAIN AT LINE'',18X,I4)')ISTART
         WRITE(6,'(/10X,''TIME USED UP TO RESTART ='',F22.2)')TOTIME
      ENDIF
      LU=KOUNTF
      TIME1 = SECOND()
      NUMAT=NVAR/3
      DO 120 I=ISTART,NVAR
         TIME2 = SECOND()
         COORDL(I)=COORDL(I)+DELTA*0.5
         GROLD(1)=100.D0
         CALL COMPFG(COORDL, .TRUE., ESCF, .TRUE., GROLD, .TRUE.)
         CALL CHRGE(P,Q)
         DO 70 II=1,NUMAT
   70    Q(II)=CORE(LABELS(II))-Q(II)
         SUM = DIPOLE(P,Q,COORDL,DELDIP(1,I))
         COORDL(I)=COORDL(I)-DELTA
         GRAD(1)=100.D0
         CALL COMPFG(COORDL, .TRUE., HEATAA, .TRUE., GRAD, .TRUE.)
         CALL CHRGE(P,Q)
         DO 80 II=1,NUMAT
   80    Q(II)=CORE(LABELS(II))-Q(II)
         SUM = DIPOLE(P,Q,COORDL,DEL2)
         DO 90 II=1,3
   90    DELDIP(II,I)=(DELDIP(II,I)-DEL2(II))*CONST
         LL=LU+1
         LU=LL+I-1
         L=0
         DO 100 KOUNTF=LL,LU
            L=L+1
            FMATRX(KOUNTF)=FMATRX(KOUNTF)+
     1         ((GROLD(L)-GRAD(L)))
     2          *CONST*FACT*0.5D0
  100    CONTINUE
         L=L-1
         DO 110 K=I,NVAR
            L=L+1
            KK=(K*(K-1))/2+I
            FMATRX(KK)=FMATRX(KK)+
     1         ((GROLD(L)-GRAD(L)))
     2          *CONST*FACT*0.5D0
  110    CONTINUE
         COORDL(I)=COORDL(I)+DELTA*0.5D0
         TIME3 = SECOND()
         TSTEP=TIME3-TIME2
         TOTIME= TOTIME+TSTEP
         TLEFT= TLEFT-TSTEP
         WRITE(6,'('' STEP:'',I4,'' TIME ='',F9.2,'' SECS, INTEGRAL ='',
     1F10.2,'' TIME LEFT:'',F10.2)')I,TSTEP,TOTIME,TLEFT
         IF(DERIV) THEN
            ESTIM = TOTIME/I
         ELSE
            ESTIM = TOTIME*2.D0/I
         ENDIF
         IF(I.NE.NVAR.AND.TLEFT-10.D0 .LT. ESTIM) THEN
            WRITE(6,'(//10X,''- - - - -  TIME  LIMIT - - - - -'')')
            WRITE(6,'(/10X,'' POINT REACHED ='',I4)')I
            WRITE(6,'(/10X,'' RESTART USING KEY-WORD "RESTART"'')')
            WRITE(6,'(10X,''ESTIMATED TIME FOR THE NEXT STEP ='',F8.2,
     1'' SECONDS'')')ESTIM
            JSTART=1
            II=I
            CALL FORSAV(TOTIME,DELDIP,II,NVAR,FMATRX, COORD,NVAR,HEAT,
     1                EVECS,JSTART,FCONST)
         ENDIF
  120 CONTINUE
C#      CALL FORSAV(TOTIME,DELDIP,NVAR,NVAR,FMATRX, COORD,NVAR,HEAT,
C#     +                EVECS,JSTART,FCONST)
      IF(DERIV) GOTO 250
      WRITE(6,'(//10X,'' STARTING TO CALCULATE FORCE CONSTANTS'',/)')
      CALL FRAME(FMATRX,NUMAT,0,EIGS)
      CALL HQRII(FMATRX,NVAR,NVAR,EIGS,EVECS)
      IF(DEBUG) THEN
         WRITE(6,'(''   EIGENVECTORS FROM FIRST CALCULATION'')')
         CALL MATOUT(EVECS,EIGS,NVAR,NVAR,NVAR)
      ENDIF
      L=0
      NREAL=NVAR-6
      DO 140 I=1,NVAR
         DO 140 J=1,I
            L=L+1
            SUM=0.D0
            DO 130 K=1,NREAL
               K1=(K-1)*NVAR+I
               K2=(K-1)*NVAR+J
  130       SUM=SUM+EVECS(K1)*EIGS(K)*EVECS(K2)
  140 FMATRX(L)=SUM
      CALL FRAME(FMATRX,NUMAT,0,EIGS)
      CALL HQRII(FMATRX,NVAR,NVAR,EIGS,EVECS)
      JSTART=1
      DO 150 I=1,NVAR
  150 COLD(I)=COORDL(I)
  160 IF(DERIV) GOTO 250
      DELTA=0.025D0
      L=(JSTART-1)*NVAR
      DO 210 ILOOP=JSTART,NVAR
         J=L
         DO 170 I=1,NVAR
            J=J+1
  170    COORDL(I)=COLD(I)+EVECS(J)*DELTA
         CALL COMPFG(COORDL, .TRUE., HEATA, .TRUE., GRAD, .FALSE.)
         HEATA=HEATA-HEAT
         J=L
         DO 180 I=1,NVAR
            J=J+1
  180    COORDL(I)=COLD(I)-EVECS(J)*DELTA
         CALL COMPFG(COORDL, .TRUE., HEATB, .TRUE., GRAD, .FALSE.)
         HEATB=HEATB-HEAT
         J=L
         DO 190 I=1,NVAR
            J=J+1
  190    COORDL(I)=COLD(I)+EVECS(J)*DELTA*2
         CALL COMPFG(COORDL, .TRUE., HEATAA, .TRUE., GRAD, .FALSE.)
         HEATAA=HEATAA-HEAT
         J=L
         DO 200 I=1,NVAR
            J=J+1
  200    COORDL(I)=COLD(I)-EVECS(J)*DELTA*2
         CALL COMPFG(COORDL, .TRUE., HEATBB, .TRUE., GRAD, .FALSE.)
         HEATBB=HEATBB-HEAT
         SUM=( (HEATA+HEATB)*16 - (HEATAA+HEATBB) )/12.D0
     1/DELTA*FACT/DELTA*0.5D0
         FCONST(ILOOP)=SUM*0.5D0
         L=L+NVAR
         TIME3 = SECOND()
         TSTEP=TIME3-TIME2
         TIME2=TIME3
         TOTIME= TOTIME+TSTEP
         TLEFT= TLEFT-TSTEP
         WRITE(6,'('' STEP:'',I4,'' TIME ='',F9.2,'' SECS, INTEGRAL ='',
     1F10.2,'' TIME LEFT:'',F10.2)')ILOOP,TSTEP,TOTIME,TLEFT
         ESTIM = TSTEP*5.D0
C
C    5.0 IS A SAFETY FACTOR
C
         IF(ILOOP.NE.NVAR.AND.TLEFT-10.D0 .LT. ESTIM) THEN
            WRITE(6,'(//10X,''- - - - -  TIME  LIMIT - - - - -'')')
            WRITE(6,'(/10X,'' POINT REACHED ='',I4)')ILOOP
            WRITE(6,'(/10X,'' RESTART USING KEY-WORD "RESTART"'')')
            WRITE(6,'(10X,''ESTIMATED TIME FOR THE NEXT STEP ='',F8.2,
     1'' SECONDS'')')ESTIM
            IFOR=ILOOP
            IX=NVAR+2
*
* VALUE OF IX IS NOT IMPORTANT. SHOULD NOT BE 0 OR NVAR
*
            CALL FORSAV(TOTIME,DELDIP,IX,NVAR,FMATRX, COORD,NVAR,HEAT,
     1                EVECS,IFOR,FCONST)
         ENDIF
  210 CONTINUE
      L=0
      DO 230 I=1,NVAR
         DO 230 J=1,I
            L=L+1
            SUM=0.D0
            DO 220 K=1,NVAR
               K1=(K-1)*NVAR+I
               K2=(K-1)*NVAR+J
  220       SUM=SUM+EVECS(K1)*FCONST(K)*EVECS(K2)
  230 FMATRX(L)=SUM*2.D0
      DO 240 I=1,NVAR
  240 COORDL(I)=COLD(I)
  250 CONTINUE
      IF(ISTART.LE.NVAR .AND. INDEX(KEYWRD,'ISOTOPE') .NE. 0)
     1CALL FORSAV(TOTIME,DELDIP,NVAR,NVAR,FMATRX, COORD,NVAR,HEAT,
     2                EVECS,ILOOP,FCONST)
      RETURN
      END

ext: for


text:
Founded in 1926, the Rotary Club of Davis has around 130 members.  The service club is dedicated to following the Rotary motto: Service Above Self.  They perform various charity and Community Organizations community acts including maintaining the Arboretum Davis Arboretum, painting a local homeless shelter and landscaping a crisis nursery.  They also perform fundraisers for youth, service and charity groups.

Rotary is an association of business people, and they encourage ethics in business.  One of the more common trademarks of Rotary is the Four Way Test, a list of questions that promote ethical business practices:

  Is it the TRUTH?
  Is it FAIR to all concerned?
  Will it build GOODWILL and BETTER FRIENDSHIPS?
  Will it be BENEFICIAL to all concerned?

They are a member of http://www.rotary.org/ Rotary International and contribute to Rotarys http://www.rotaryclubofdavis.com/Foundation.cfm worldwide efforts toward bringing health care, clean water and housing to poor communities around the world.  One of the most remarkable achievements of Rotary has been PolioPlus, one of the major factors in http://www.rotary.org/foundation/polioplus/information/history.html eliminating polio worldwide, and vaccinating vast numbers of children around the world, bringing many other diseases under control. They sponsor the Rotaract Club of Davis.

On a more local note, they also created the board game Davisopoly as a fundraiser that raised $20,000 for a vehicle for a local hospital.

There is a Rotary BBQ 2007 Rotary BBQ being held May 14th 2011.

max_stars_repo_name: voflo/Search

max_issues_repo_name: voflo/Search

max_forks_repo_name: voflo/Search


module fluct_dens
!! Density and particle number fluctuations inside small volumes.
use celldec, only: Particule
use state, only: PcmcState
use agr
implicit none

logical,parameter :: use_partial_volume=.true.
real(8),parameter :: PI=3.1415926535897931D0,eps_ppho=1.D-3
integer :: N_pho,N_tests,N_min,N_N,deltaN,step_calc,N_fam,N_fam2,nf
real(8) :: Rayon,Volume,phom,pho2m,P_pho,rad_pho,phi_pho,pho_n,fluct_dens_moyf,fluct_dens_covf
allocatable :: Rayon(:),Volume(:),phom(:),P_pho(:,:),pho2m(:),rad_pho(:,:),phi_pho(:,:),N_min(:),N_N(:),&
     pho_n(:,:),deltaN(:),fluct_dens_covf(:,:),fluct_dens_moyf(:,:),N_fam(:,:),N_fam2(:,:)

private :: randomisation,dist2_rel,PI,eps_ppho,Volume,N_tests,Rayon,phom,pho2m,rad_pho,phi_pho,N_min,&
     deltaN,N_N,step_calc,P_pho,N_fam,N_fam2,nf,N_pho,fluct_dens_init_para,fluct_dens_new_step

integer, private :: fluct_dens_n_rayon !! number of sampled radii
real(8),allocatable, private :: rad_fluctu(:) !! radius fluctuations
real(8),allocatable, private :: gammas(:) !! Γ(R)

contains

subroutine fluct_dens_free()
  !! Free calculation arrays.
  implicit none

  if(allocated(Rayon)) then

    deallocate(Rayon,Volume,phom,pho2m,N_min,N_N,deltaN)

    deallocate(pho_n,P_pho,rad_pho,phi_pho)
  end if

  if(allocated(N_fam)) then
    deallocate(N_fam,N_fam2)
  end if

  if(allocated(fluct_dens_covf)) then
    deallocate(fluct_dens_covf,fluct_dens_moyf)
  end if

end subroutine fluct_dens_free

subroutine fluct_dens_init_para(n,L,nf_,fpara)
  !! Init calculation.
  implicit none
  integer :: n !! number of particles
  integer :: nf_ !! number of families
  real(8) :: L !! box length
  character(256) :: fpara !! parameter file
  intent(in) :: n,fpara,L

  logical :: estla,use_rel_radius
  integer :: i,j,idump,ufpara,graine
  real(8) :: pho_min,pho_max,pho_g,dump
  character(10) :: option

  nf=nf_

  pho_g=n/(L**3)

   ! read parameters
  inquire(file=fpara, exist=estla)

  if(.not.estla) then
     write(*,'(A,A)') "Error: cannot find: ", fpara
     stop 1
  endif

  open(newunit=ufpara,file=fpara,form='formatted',status='old')
  read(ufpara,*)
  read(ufpara,*) graine
  read(ufpara,*)
  read(ufpara,*) N_tests
  read(ufpara,*)
  read(ufpara,*) fluct_dens_n_rayon
  allocate(Rayon(fluct_dens_n_rayon),Volume(fluct_dens_n_rayon),phom(fluct_dens_n_rayon),pho2m(fluct_dens_n_rayon),&
       &N_min(fluct_dens_n_rayon),N_N(fluct_dens_n_rayon),deltaN(fluct_dens_n_rayon))
  read(ufpara,*)
  read(ufpara,*) option
  if(option(1:3)=="RR") then
     use_rel_radius=.true.
  elseif(option(1:2)=="R") then
     use_rel_radius=.false.
  else
     use_rel_radius=.false.
  endif
  do i=1,fluct_dens_n_rayon
     read(ufpara,*) Rayon(i)
  end do
  read(ufpara,*)
  read(ufpara,*) pho_min
  read(ufpara,*) pho_max
  read(ufpara,*) N_pho

  close(ufpara)

  call randomisation(graine)

  do j=1,fluct_dens_n_rayon
     if(use_rel_radius) Rayon(j) = L*Rayon(j)
     Volume(j)=4.D0/3.D0*PI*(Rayon(j)**3)
  end do

  do j=1,fluct_dens_n_rayon
     dump=pho_g*Volume(j)
     N_min(j)=max(floor(dump-pho_min*sqrt(dump)),1)
     idump=floor(dump+pho_min*sqrt(dump))+1-N_min(j)
     i=idump/N_pho
     if(i<1) then
        N_N(j)=idump
        deltaN(j)=1
     else
        N_N(j)=idump/i+1
        deltaN(j) = i
     end if
  end do
  N_pho=maxval(N_N)

  allocate(pho_n(N_pho,fluct_dens_n_rayon),P_pho(n_pho,fluct_dens_n_rayon),rad_pho(n_pho,fluct_dens_n_rayon),&
&phi_pho(n_pho,fluct_dens_n_rayon))

  do j=1,fluct_dens_n_rayon
     do i=1,N_N(j)
        pho_n(i,j) = ((i-1)*deltaN(j)+N_min(j))/Volume(j)
     end do
  end do

  allocate(N_fam(nf,fluct_dens_n_rayon),N_fam2(nf*(nf+1)/2,fluct_dens_n_rayon))

  P_pho=0.D0
  rad_pho=0.D0
  phi_pho=0.D0
  phom(:)=0.D0
  pho2m(:)=0.D0
  N_fam=0
  N_fam2=0

  step_calc=0

end subroutine fluct_dens_init_para

subroutine fluct_dens_reset()
  !! Reset cumulative quantities. Can be used with a new run.
  implicit none

  P_pho=0.D0
  rad_pho=0.D0
  phi_pho=0.D0
  phom(:)=0.D0
  pho2m(:)=0.D0
  N_fam=0
  N_fam2=0

  step_calc=0

end subroutine fluct_dens_reset

subroutine fluct_dens_new_step(x,n,L)
  !! Performs a new step.
  implicit none
  integer,intent(in) :: n !! number of particles
  real(8),intent(in) :: L !! box length
  type(Particule),intent(in) :: x(n) !! particles
  integer :: k,j,i,idump,Ndump
  real(8) :: phi
  real(8) :: RR,dump,RR_,ray,zi,h1,h2,rad
  real(8) :: pos(3), r2
  integer :: ii,jj,Ndump_fam(nf)

  do k=1,N_tests
    do i=1,3
      call random_number(dump)
      pos(i)=L*dump
    end do
    do j=1,fluct_dens_n_rayon
      ! Nb inside the sphere
      Ndump_fam=0
      Ndump=0
      phi=0.D0
      rad=0.D0
      RR=Rayon(j)*Rayon(j)
      do i=1,n
        r2=dist2_rel(x(i)%pos,pos,L)
        if(r2<=RR) then
          Ndump=Ndump+1
          Ndump_fam(x(i)%famille)=Ndump_fam(x(i)%famille) +1
          if(.not.use_partial_volume) phi = phi + (x(i)%rayon)**3
          rad=rad+x(i)%rayon
        end if
        if(use_partial_volume) then
          dump=sqrt(r2)
          ray=x(i)%rayon
          RR_=Rayon(j)
          if(dump > RR_ .and. dump<(RR_+ray)) then
            zi=(dump*dump+RR_*RR_-ray*ray)/(2*dump)
            h2=zi+ray-dump
            h1=RR_-zi
            phi=phi+(Polyn_cal(h1,RR_)+Polyn_cal(h2,ray))
          else if(dump <= RR_ .and. dump >(RR_-ray)) then
            zi=(dump*dump+RR_*RR_-ray*ray)/(2*dump)
            h2=dump+ray-zi
            h1=RR_-zi
            phi=phi+(ray**3+Polyn_cal(h1,RR_)-Polyn_cal(h2,ray))
          else if(dump <= (RR_-ray)) then
            phi=phi+ray**3
          end if
        end if
      end do
      phi= 4.D0*PI*phi/(3.D0*Volume(j))
      rad = rad/n

      idump=(Ndump-N_min(j))/deltaN(j)+1
      if(idump>=1 .and. idump <= N_N(j)) then
        P_pho(idump,j)=P_pho(idump,j)+1
        phi_pho(idump,j)=phi_pho(idump,j)+phi
        rad_pho(idump,j)=rad_pho(idump,j)+rad
      end if

      phom(j)=phom(j)+Ndump
      pho2m(j)=pho2m(j)+Ndump*Ndump

      do ii=1,nf
        N_fam(ii,j)=N_fam(ii,j)*Ndump_fam(ii)
        N_fam2(ii,j)=N_fam2(ii,j)+ Ndump_fam(ii)*Ndump_fam(ii)
      end do
      idump=nf
      do ii=1,nf
        do jj=i+1,nf
          idump=idump+1
          N_fam2(idump,j)=N_fam2(idump,j)+Ndump_fam(ii)*Ndump_fam(jj)
        end do
      end do

    end do
    step_calc=step_calc+1

  end do
contains
  real(8) function Polyn_cal(H__,R__)
    implicit none
    real(8),intent(in) :: H__,R__
    ! Volume of a spherical cap divided by 4 PI/3
    Polyn_cal=(H__*H__*(3*R__-H__))/4
  end function Polyn_cal

end subroutine fluct_dens_new_step

subroutine fluct_dens_end_step()
  !! Finalize calculations.
  implicit none
  integer :: i,j,ind
  real(8) :: d_pho

  P_pho=P_pho/(step_calc)

  phom=phom/(step_calc)
  pho2m=pho2m/(step_calc)
  pho2m=(pho2m-phom*phom)

  phi_pho(:,:)=phi_pho(:,:)/step_calc
  rad_pho(:,:)=rad_pho(:,:)/step_calc

  where(P_pho>EPS_ppho)
    rad_pho= rad_pho/P_pho
  end where

  where(P_pho>EPS_ppho)
    phi_pho= phi_pho/P_pho
  end where

  ! Normalization
  do i=1,fluct_dens_n_Rayon
    d_pho = pho_n(2,i)-pho_n(1,i)
    P_pho(:,i)=P_pho(:,i)/d_pho
  end do

  allocate(fluct_dens_covf((nf*(nf+1))/2,fluct_dens_n_rayon),fluct_dens_moyf(nf,fluct_dens_n_rayon))

  fluct_dens_moyf(1:nf,:)=(1.D0*N_fam(1:nf,:))/step_calc
  fluct_dens_covf(1:nf,:)=(1.D0*N_fam2(1:nf,:))/step_calc-fluct_dens_moyf(1:nf,:)**2

  ind=0
  do i=1,nf
    do j=i+1,nf
      ind=ind+1
      fluct_dens_covf(ind,:)=(1.D0*N_fam2(ind,:)/step_calc)-(fluct_dens_moyf(i,:)*fluct_dens_covf(j,:))
    end do
  end do

end subroutine fluct_dens_end_step

subroutine fluct_dens_get_gammas(gams)
  !! Get
  implicit none
  real(8), intent(out) :: gams(*)
  gams(1:fluct_dens_n_rayon)=pho2m(1:fluct_dens_n_rayon)/phom(1:fluct_dens_n_rayon)
end subroutine fluct_dens_get_gammas

subroutine fluct_dens_get_radii(rads)
  implicit none
  real(8), intent(out) :: rads(*)
  rads(1:fluct_dens_n_rayon)=rayon(1:fluct_dens_n_rayon)
end subroutine fluct_dens_get_radii

subroutine randomisation(seed_aucasou)
  !! Initialize fortran's random generator.
  implicit none
  integer,intent(in) :: seed_aucasou

  integer,parameter :: MX=2047483647
  integer :: size_seed,seed,i,idump
  real(8) :: dump
  allocatable :: seed(:)

  call random_seed(size=size_seed)
  allocate(seed(size_seed))
  call system_clock(count=idump,count_rate=idump)

  if(idump<=0) then
     idump=seed_aucasou
   end if
   seed=idump
   call random_seed(put=seed)
   do i=2,size_seed
     call random_number(dump)
     seed(i)=floor(MX*dump)
   end do
   call random_seed(put=seed)

   deallocate(seed)
end subroutine randomisation

real(8) function dist2_rel(coord0,coord,L)
  !! square of the separation betwen two images
  ! TODO: use the real dist_mi ?
  implicit none
  real(8),intent(in) :: coord0(3),coord(3),L
  real(8) :: dump,Lsur2
  integer :: i
  Lsur2=0.5D0*L

  dist2_rel=0
  do i=1,3
    dump=coord(i)-coord0(i)
    if(dump>Lsur2) then
      dump = dump-L
    elseif(dump<-lsur2) then
      dump = dump+L
    end if
    dist2_rel = dist2_rel+dump*dump
  end do

end function dist2_rel

subroutine fluct_dens_init(st, file_name)
  !! Initialize calculations
  type(PcmcState) :: st
  character(*), intent(in) :: file_name !! configuration file
  logical :: inestla
  inquire(file=st%inp%fich_fluctu,exist=inestla)
  if(.not.inestla) then
    write(*,'(A,A,A)') "Error", trim(file_name)," not found."
    stop 1
  endif

  call fluct_dens_init_para(st%boxes(1)%n,real(st%boxes(1)%tens(1,1),8),st%dist%nfam,st%inp%fich_fluctu)
end subroutine fluct_dens_init

subroutine fluct_dens_update(st)
  !! Does a new calculation step from current state.
  type(PcmcState) :: st
  integer :: k
  do k=1,1
    call fluct_dens_new_step(st%boxes(1)%Parts,st%boxes(1)%n,st%boxes(1)%tens(1,1))
  end do
end subroutine fluct_dens_update

subroutine fluct_dens_finish()
  !! Finalize calculations
  call fluct_dens_end_step()

  allocate(gammas(fluct_dens_n_rayon),rad_fluctu(fluct_dens_n_rayon))
  call fluct_dens_get_gammas(gammas)
  call fluct_dens_get_radii(rad_fluctu)
end subroutine fluct_dens_finish

subroutine fluct_dens_output(fdist,frad,fphi,fgg)
  !! Prints results to files
  character(*),intent(in) :: fdist !! Density distributions
  character(*),intent(in) :: frad  !! Mean radii
  character(*),intent(in) :: fphi  !! Volume fractions
  character(*),intent(in) :: fgg   !! Fluctuations

  integer :: i,j,k,idump,ufout

  open(newunit=ufout,file=fdist,form="formatted")
  call agr_init(ufout)
  write(ufout,'(A)') '@xaxis  label "\\xr"'
  write(ufout,'(A)') '@yaxis  label "Dist"'
  do i=1,fluct_dens_n_rayon
    write(ufout,'(A,I0,A,G15.7,A)') "@s",i-1,' legend "',Rayon(i),' nm"'
  end do
  do i=1,fluct_dens_n_rayon
    call agr_add_xy(ufout,i-1,pho_n(:,i),P_pho(:,i),N_N(i))
  end do
  close(ufout)

  open(newunit=ufout,file=frad,form="formatted")
  call agr_init(ufout)
  write(ufout,'(A)') '@xaxis  label "\\xr"'
  write(ufout,'(A)') '@yaxis  label "Mean radius"'
  do i=1,fluct_dens_n_rayon
    write(ufout,'(A,I0,A,G15.7,A)') "@s",i-1,' legend "',Rayon(i),' nm"'
  end do
  do i=1,fluct_dens_n_rayon
    call agr_add_xy(ufout,i-1,pho_n(:,i),rad_pho(:,i),N_N(i))
  end do
  close(ufout)

  open(newunit=ufout,file=fphi,form="formatted")
  call agr_init(ufout)
  write(ufout,'(A)') '@xaxis  label "\\xr"'
  write(ufout,'(A)') '@yaxis  label "mean \\xf\\f{}"'
  do i=1,fluct_dens_n_rayon
    write(ufout,'(A,I0,A,G15.7,A)') "@s",i-1,' legend "',Rayon(i),' nm"'
  end do
  do i=1,fluct_dens_n_rayon
    call agr_add_xy(ufout,i-1,pho_n(:,i),phi_pho(:,i),N_N(i))
  end do
  close(ufout)

  open(newunit=ufout,file=fgg,form="formatted")

  write(ufout,*) "Fluctuations of families: cov(Ni,Nj)"
  write(ufout,*) "Nb radii:",fluct_dens_n_rayon
  write(ufout,*) "Nb families:",nf
  do k=1,fluct_dens_n_rayon
    write(ufout,*) Rayon(k)
    idump=0
    do i=1,nf
      idump=idump+1
      write(ufout,'(I16,1x,G15.7)') i,fluct_dens_covf(idump,k)
    end do
    do i=1,nf
      do j=i+1,nf
        idump=idump+1
        write(ufout,'(I16,1x,I16,1x,G15.7)') i,j,fluct_dens_covf(idump,k)
      end do
    end do
  end do

  close(ufout)

end subroutine fluct_dens_output

subroutine fluct_dens_log_results(st, log_unit)
  !! Prints main results.
  type(PcmcState) :: st
  integer, intent(in) :: log_unit !! file descriptor
  integer :: i,k

  write(log_unit,*) "Density Fluctuations:"
  do k=1, st%ntotbox
    write(log_unit,*) "Box", k
    write(log_unit,*) "phi   Rayon   Gamma^-1"
    do i=1,fluct_dens_n_rayon
      write(log_unit,'(3G16.8)') st%res(k)%hetv,rad_fluctu(i),gammas(i)
    end do
  end do

end subroutine fluct_dens_log_results

end module fluct_dens


PROGRAM pointer_test

  IMPLICIT NONE
  INTEGER, TARGET :: actual_value
  INTEGER, POINTER :: ptr

  ptr => NULL()
  PRINT *,'Association test before', ASSOCIATED(ptr)
  actual_value = 5
  ptr => actual_value
  PRINT *,'Association test after', ASSOCIATED(ptr)
  PRINT *,'Association test specific', ASSOCIATED(ptr, &
      TARGET=actual_value)
  PRINT *,'Pointer value after pointing is ', ptr
  ptr = 10

  PRINT *, 'Actual value after changing pointer is ', actual_value

END PROGRAM pointer_test