text:
C5_ETH_sim/C5_ETH.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_eth_tse_mac.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_eth_tse_mac.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_eth_tse_mac.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_eth_tse_mac.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_clk_cntl.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_clk_cntl.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_clk_cntl.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_clk_cntl.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_crc328checker.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_crc328checker.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_crc328checker.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_crc328checker.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_crc328generator.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_crc328generator.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_crc328generator.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_crc328generator.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_crc32ctl8.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_crc32ctl8.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_crc32ctl8.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_crc32ctl8.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_crc32galois8.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_crc32galois8.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_crc32galois8.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_crc32galois8.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_gmii_io.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_gmii_io.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_gmii_io.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_gmii_io.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_lb_read_cntl.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_lb_read_cntl.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_lb_read_cntl.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_lb_read_cntl.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_lb_wrt_cntl.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_lb_wrt_cntl.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_lb_wrt_cntl.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_lb_wrt_cntl.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_hashing.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_hashing.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_hashing.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_hashing.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_host_control.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_host_control.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_host_control.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_host_control.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_host_control_small.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_host_control_small.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_host_control_small.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_host_control_small.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_mac_control.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_mac_control.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_mac_control.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_mac_control.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_register_map.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_register_map.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_register_map.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_register_map.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_register_map_small.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_register_map_small.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_register_map_small.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_register_map_small.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_rx_counter_cntl.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_rx_counter_cntl.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_rx_counter_cntl.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_rx_counter_cntl.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_shared_mac_control.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_shared_mac_control.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_shared_mac_control.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_shared_mac_control.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_shared_register_map.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_shared_register_map.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_shared_register_map.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_shared_register_map.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_tx_counter_cntl.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_tx_counter_cntl.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_tx_counter_cntl.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_tx_counter_cntl.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_lfsr_10.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_lfsr_10.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_lfsr_10.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_lfsr_10.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_loopback_ff.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_loopback_ff.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_loopback_ff.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_loopback_ff.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_altshifttaps.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_altshifttaps.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_altshifttaps.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_altshifttaps.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_fifoless_mac_rx.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_fifoless_mac_rx.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_fifoless_mac_rx.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_fifoless_mac_rx.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_mac_rx.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_mac_rx.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_mac_rx.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_mac_rx.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_fifoless_mac_tx.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_fifoless_mac_tx.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_fifoless_mac_tx.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_fifoless_mac_tx.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_mac_tx.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_mac_tx.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_mac_tx.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_mac_tx.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_magic_detection.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_magic_detection.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_magic_detection.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_magic_detection.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_mdio.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_mdio.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_mdio.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_mdio.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_mdio_clk_gen.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_mdio_clk_gen.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_mdio_clk_gen.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_mdio_clk_gen.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_mdio_cntl.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_mdio_cntl.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_mdio_cntl.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_mdio_cntl.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_top_mdio.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_top_mdio.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_top_mdio.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_top_mdio.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_mii_rx_if.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_mii_rx_if.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_mii_rx_if.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_mii_rx_if.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_mii_tx_if.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_mii_tx_if.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_mii_tx_if.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_mii_tx_if.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_pipeline_base.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_pipeline_base.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_pipeline_base.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_pipeline_base.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_pipeline_stage.sv
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_pipeline_stage.sv
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_pipeline_stage.sv
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_pipeline_stage.sv
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_dpram_16x32.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_dpram_16x32.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_dpram_16x32.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_dpram_16x32.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_dpram_8x32.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_dpram_8x32.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_dpram_8x32.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_dpram_8x32.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_dpram_ecc_16x32.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_dpram_ecc_16x32.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_dpram_ecc_16x32.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_dpram_ecc_16x32.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_fifoless_retransmit_cntl.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_fifoless_retransmit_cntl.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_fifoless_retransmit_cntl.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_fifoless_retransmit_cntl.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_retransmit_cntl.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_retransmit_cntl.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_retransmit_cntl.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_retransmit_cntl.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_rgmii_in1.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_rgmii_in1.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_rgmii_in1.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_rgmii_in1.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_rgmii_in4.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_rgmii_in4.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_rgmii_in4.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_rgmii_in4.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_nf_rgmii_module.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_nf_rgmii_module.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_nf_rgmii_module.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_nf_rgmii_module.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_rgmii_module.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_rgmii_module.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_rgmii_module.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_rgmii_module.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_rgmii_out1.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_rgmii_out1.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_rgmii_out1.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_rgmii_out1.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_rgmii_out4.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_rgmii_out4.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_rgmii_out4.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_rgmii_out4.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_rx_ff.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_rx_ff.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_rx_ff.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_rx_ff.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_rx_min_ff.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_rx_min_ff.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_rx_min_ff.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_rx_min_ff.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_rx_ff_cntrl.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_rx_ff_cntrl.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_rx_ff_cntrl.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_rx_ff_cntrl.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_rx_ff_cntrl_32.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_rx_ff_cntrl_32.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_rx_ff_cntrl_32.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_rx_ff_cntrl_32.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_rx_ff_cntrl_32_shift16.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_rx_ff_cntrl_32_shift16.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_rx_ff_cntrl_32_shift16.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_rx_ff_cntrl_32_shift16.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_rx_ff_length.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_rx_ff_length.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_rx_ff_length.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_rx_ff_length.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_rx_stat_extract.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_rx_stat_extract.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_rx_stat_extract.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_rx_stat_extract.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_timing_adapter32.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_timing_adapter32.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_timing_adapter32.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_timing_adapter32.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_timing_adapter8.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_timing_adapter8.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_timing_adapter8.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_timing_adapter8.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_timing_adapter_fifo32.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_timing_adapter_fifo32.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_timing_adapter_fifo32.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_timing_adapter_fifo32.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_timing_adapter_fifo8.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_timing_adapter_fifo8.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_timing_adapter_fifo8.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_timing_adapter_fifo8.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_top_1geth.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_top_1geth.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_top_1geth.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_top_1geth.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_top_fifoless_1geth.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_top_fifoless_1geth.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_top_fifoless_1geth.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_top_fifoless_1geth.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_top_w_fifo.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_top_w_fifo.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_top_w_fifo.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_top_w_fifo.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_top_w_fifo_10_100_1000.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_top_w_fifo_10_100_1000.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_top_w_fifo_10_100_1000.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_top_w_fifo_10_100_1000.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_top_wo_fifo.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_top_wo_fifo.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_top_wo_fifo.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_top_wo_fifo.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_top_wo_fifo_10_100_1000.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_top_wo_fifo_10_100_1000.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_top_wo_fifo_10_100_1000.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_top_wo_fifo_10_100_1000.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_top_gen_host.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_top_gen_host.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_top_gen_host.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_top_gen_host.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_tx_ff.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_tx_ff.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_tx_ff.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_tx_ff.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_tx_min_ff.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_tx_min_ff.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_tx_min_ff.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_tx_min_ff.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_tx_ff_cntrl.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_tx_ff_cntrl.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_tx_ff_cntrl.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_tx_ff_cntrl.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_tx_ff_cntrl_32.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_tx_ff_cntrl_32.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_tx_ff_cntrl_32.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_tx_ff_cntrl_32.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_tx_ff_cntrl_32_shift16.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_tx_ff_cntrl_32_shift16.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_tx_ff_cntrl_32_shift16.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_tx_ff_cntrl_32_shift16.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_tx_ff_length.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_tx_ff_length.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_tx_ff_length.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_tx_ff_length.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_tx_ff_read_cntl.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_tx_ff_read_cntl.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_tx_ff_read_cntl.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_tx_ff_read_cntl.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_tx_stat_extract.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_tx_stat_extract.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_tx_stat_extract.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_tx_stat_extract.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_eth_tse_std_synchronizer.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_eth_tse_std_synchronizer.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_eth_tse_std_synchronizer.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_eth_tse_std_synchronizer.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_eth_tse_std_synchronizer_bundle.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_eth_tse_std_synchronizer_bundle.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_eth_tse_std_synchronizer_bundle.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_eth_tse_std_synchronizer_bundle.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_eth_tse_ptp_std_synchronizer.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_eth_tse_ptp_std_synchronizer.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_eth_tse_ptp_std_synchronizer.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_eth_tse_ptp_std_synchronizer.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_false_path_marker.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_false_path_marker.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_false_path_marker.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_false_path_marker.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_reset_synchronizer.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_reset_synchronizer.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_reset_synchronizer.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_reset_synchronizer.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_clock_crosser.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_clock_crosser.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_clock_crosser.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_clock_crosser.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_a_fifo_13.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_a_fifo_13.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_a_fifo_13.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_a_fifo_13.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_a_fifo_24.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_a_fifo_24.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_a_fifo_24.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_a_fifo_24.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_a_fifo_34.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_a_fifo_34.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_a_fifo_34.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_a_fifo_34.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_a_fifo_opt_1246.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_a_fifo_opt_1246.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_a_fifo_opt_1246.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_a_fifo_opt_1246.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_a_fifo_opt_14_44.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_a_fifo_opt_14_44.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_a_fifo_opt_14_44.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_a_fifo_opt_14_44.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_a_fifo_opt_36_10.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_a_fifo_opt_36_10.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_a_fifo_opt_36_10.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_a_fifo_opt_36_10.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_gray_cnt.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_gray_cnt.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_gray_cnt.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_gray_cnt.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_sdpm_altsyncram.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_sdpm_altsyncram.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_sdpm_altsyncram.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_sdpm_altsyncram.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_altsyncram_dpm_fifo.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_altsyncram_dpm_fifo.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_altsyncram_dpm_fifo.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_altsyncram_dpm_fifo.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_bin_cnt.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_bin_cnt.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_bin_cnt.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_bin_cnt.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ph_calculator.sv
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ph_calculator.sv
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ph_calculator.sv
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ph_calculator.sv
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_sdpm_gen.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_sdpm_gen.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_sdpm_gen.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_sdpm_gen.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_dec_x10.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_dec_x10.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_dec_x10.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_dec_x10.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_enc_x10.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_enc_x10.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_enc_x10.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_enc_x10.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_enc_x10_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_enc_x10_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_enc_x10_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_enc_x10_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_dec_x14.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_dec_x14.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_dec_x14.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_dec_x14.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_enc_x14.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_enc_x14.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_enc_x14.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_enc_x14.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_enc_x14_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_enc_x14_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_enc_x14_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_enc_x14_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_dec_x2.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_dec_x2.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_dec_x2.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_dec_x2.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_enc_x2.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_enc_x2.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_enc_x2.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_enc_x2.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_enc_x2_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_enc_x2_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_enc_x2_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_enc_x2_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_dec_x23.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_dec_x23.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_dec_x23.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_dec_x23.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_enc_x23.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_enc_x23.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_enc_x23.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_enc_x23.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_enc_x23_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_enc_x23_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_enc_x23_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_enc_x23_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_dec_x36.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_dec_x36.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_dec_x36.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_dec_x36.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_enc_x36.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_enc_x36.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_enc_x36.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_enc_x36.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_enc_x36_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_enc_x36_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_enc_x36_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_enc_x36_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_dec_x40.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_dec_x40.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_dec_x40.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_dec_x40.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_enc_x40.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_enc_x40.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_enc_x40.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_enc_x40.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_enc_x40_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_enc_x40_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_enc_x40_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_enc_x40_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_dec_x30.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_dec_x30.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_dec_x30.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_dec_x30.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_enc_x30.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_enc_x30.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_enc_x30.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_enc_x30.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_enc_x30_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_enc_x30_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_enc_x30_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_enc_x30_wrapper.v
C5_ETH_sim/altera_eth_tse_mac/mentor/altera_tse_ecc_status_crosser.v
C5_ETH_sim/altera_eth_tse_mac/aldec/altera_tse_ecc_status_crosser.v
C5_ETH_sim/altera_eth_tse_mac/synopsys/altera_tse_ecc_status_crosser.v
C5_ETH_sim/altera_eth_tse_mac/cadence/altera_tse_ecc_status_crosser.v
C5_ETH_sim/altera_eth_tse_mac/altera_std_synchronizer_nocut.v

ext: f

max_stars_repo_name: astkalx/cefb

max_issues_repo_name: astkalx/cefb

max_forks_repo_name: astkalx/cefb


text:
program test_tail
use iso_fortran_env, only:int8, int16, int32, int64, real32, real64, real128
use mod_testing, only:assert, initialize_tests, report_tests
use mod_functional

implicit none

logical, dimension(:), allocatable :: tests
logical :: test_failed
integer :: n, norder, ntests
integer, parameter :: stdout = 6

complex(real32), dimension(:), allocatable :: c_r4
complex(real64), dimension(:), allocatable :: c_r8
complex(real128), dimension(:), allocatable :: c_r16

c_r4 = [(1, 2), (2, 4)]
c_r8 = c_r4
c_r16 = c_r4

n = 1
ntests = 14
call initialize_tests(tests, ntests)

tests(n) = assert(all(tail([1_int8, 2_int8]) == [2_int8]), 'tail, int8')
n = n + 1

tests(n) = assert(all(tail([1_int16, 2_int16]) == [2_int16]), 'tail, int16')
n = n + 1

tests(n) = assert(all(tail([1_int32, 2_int32]) == [2_int32]), 'tail, int32')
n = n + 1

tests(n) = assert(all(tail([1_int64, 2_int64]) == [2_int64]), 'tail, int64')
n = n + 1

tests(n) = assert(all(tail([1._real32, 2._real32]) == [2._real32]), 'tail, real32')
n = n + 1

tests(n) = assert(all(tail([1._real64, 2._real64]) == [2._real64]), 'tail, real64')
n = n + 1

tests(n) = assert(all(tail([1._real128, 2._real128]) == [2._real128]), 'tail, real128')
n = n + 1

tests(n) = assert(all(tail(c_r4) == [c_r4(2)]), 'tail, complex real32')
n = n + 1

tests(n) = assert(all(tail(c_r8) == [c_r8(2)]), 'tail, complex real64')
n = n + 1

tests(n) = assert(all(tail(c_r16) == [c_r16(2)]), 'tail, complex real128')
n = n + 1

tests(n) = assert(tail('Hello') == 'ello', 'tail, character string')
n = n + 1

tests(n) = assert(size(tail([1._real32])) == 0, 'size(tail([1])) == 0')
n = n + 1

tests(n) = assert(size(tail(tail([1._real32]))) == 0, 'size(tail(tail([1]))) == 0')
n = n + 1

tests(n) = assert(all(tail([1, 2]) == .tail.[1, 2]), 'tail operator,  .tail.x')
n = n + 1

test_failed = .false.
call report_tests(tests, test_failed)
if(test_failed)stop 1

end program test_tail

max_stars_repo_name: econwang/functional-fortran

max_issues_repo_name: econwang/functional-fortran

max_forks_repo_name: econwang/functional-fortran


text:
src/ALU.sv
src/branch_unit.sv
src/commit_stage.sv
src/core.sv
src/data_mem.sv
src/execute_stage.sv
src/inst_mem.sv
src/instr_decoder.sv
src/issue_stage.sv
src/mem_wrap.sv
src/mul_div.sv
src/regfile.sv
src/scoreboard_data_hazards.sv
src/frontend_stage.sv
src/decode_stage.sv
src/csr.sv
src/csr_regfile.sv
uvm/pkg_memory.sv
uvm/pkg_main.sv
uvm/core_if.sv
uvm/reg_if.sv
uvm/wrapper.sv
uvm/top.sv
+incdir+./uvm
+incdir+

max_stars_repo_name: OYounis/GPCore

max_issues_repo_name: OYounis/GPCore

max_forks_repo_name: OYounis/GPCore


    Program dsygvx_example

!     DSYGVX Example Program Text

!     Copyright (c) 2018, Numerical Algorithms Group (NAG Ltd.)
!     For licence see
!       https://github.com/numericalalgorithmsgroup/LAPACK_Examples/blob/master/LICENCE.md

!     .. Use Statements ..
      Use lapack_example_aux, Only: nagf_blas_damax_val, &
        nagf_file_print_matrix_real_gen
      Use lapack_interfaces, Only: dsygvx
      Use lapack_precision, Only: dp
!     .. Implicit None Statement ..
      Implicit None
!     .. Parameters ..
      Real (Kind=dp), Parameter :: zero = 0.0_dp
      Integer, Parameter :: nb = 64, nin = 5, nout = 6
!     .. Local Scalars ..
      Real (Kind=dp) :: abstol, r, vl, vu
      Integer :: i, ifail, il, info, iu, k, lda, ldb, ldz, lwork, m, n
!     .. Local Arrays ..
      Real (Kind=dp), Allocatable :: a(:, :), b(:, :), w(:), work(:), z(:, :)
      Real (Kind=dp) :: dummy(1)
      Integer, Allocatable :: iwork(:), jfail(:)
!     .. Intrinsic Procedures ..
      Intrinsic :: max, nint
!     .. Executable Statements ..
      Write (nout, *) 'DSYGVX Example Program Results'
      Write (nout, *)
!     Skip heading in data file
      Read (nin, *)
      Read (nin, *) n
      lda = n
      ldb = n
      ldz = n
      m = n
      Allocate (a(lda,n), b(ldb,n), w(n), z(ldz,m), iwork(5*n), jfail(n))

!     Read the lower and upper bounds of the interval to be searched.
      Read (nin, *) vl, vu

!     Use routine workspace query to get optimal workspace.
      lwork = -1
      Call dsygvx(1, 'Vectors', 'Values in range', 'Upper', n, a, lda, b, ldb, &
        vl, vu, il, iu, abstol, m, w, z, ldz, dummy, lwork, iwork, jfail, &
        info)

!     Make sure that there is enough workspace for block size nb.
      lwork = max((nb+3)*n, nint(dummy(1)))
      Allocate (work(lwork))

!     Read the upper triangular parts of the matrices A and B

      Read (nin, *)(a(i,i:n), i=1, n)
      Read (nin, *)(b(i,i:n), i=1, n)

!     Set the absolute error tolerance for eigenvalues.  With ABSTOL
!     set to zero, the default value is used instead

      abstol = zero

!     Solve the generalized symmetric eigenvalue problem
!     A*x = lambda*B*x (ITYPE = 1)

      Call dsygvx(1, 'Vectors', 'Values in range', 'Upper', n, a, lda, b, ldb, &
        vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, iwork, jfail, info)

      If (info>=0 .And. info<=n) Then

!       Print solution

        Write (nout, 100) 'Number of eigenvalues found =', m
        Write (nout, *)
        Write (nout, *) 'Eigenvalues'
        Write (nout, 110) w(1:m)
        Flush (nout)

!       Normalize the eigenvectors, largest positive
        Do i = 1, m
          Call nagf_blas_damax_val(n, z(1,i), 1, k, r)
          If (z(k,i)<zero) Then
            z(1:n, i) = -z(1:n, i)
          End If
        End Do

!       ifail: behaviour on error exit
!              =0 for hard exit, =1 for quiet-soft, =-1 for noisy-soft
        ifail = 0
        Call nagf_file_print_matrix_real_gen('General', ' ', n, m, z, ldz, &
          'Selected eigenvectors', ifail)

        If (info>0) Then
          Write (nout, 100) 'INFO eigenvectors failed to converge, INFO =', &
            info
          Write (nout, *) 'Indices of eigenvectors that did not converge'
          Write (nout, 120) jfail(1:m)
        End If
      Else If (info>n .And. info<=2*n) Then
        i = info - n
        Write (nout, 130) 'The leading minor of order ', i, &
          ' of B is not positive definite'
      Else
        Write (nout, 100) 'Failure in DSYGVX. INFO =', info
      End If

100   Format (1X, A, I5)
110   Format (3X, (8F8.4))
120   Format (3X, (8I8))
130   Format (1X, A, I4, A)
    End Program


text:
SUBROUTINE SAMPLE02

    !$xev loop shape-opt4
    DO I=1,NNODE
        SUM = SUM + 5
    END DO

    RETURN
END

max_stars_repo_name: xevolver/xevxml

max_issues_repo_name: xevolver/xevxml

max_forks_repo_name: xevolver/xevxml


text:
      SUBROUTINE DRSTPL(INOD,LUN,INV1,INV2,INVN)

C$$$  SUBPROGRAM DOCUMENTATION BLOCK
C
C SUBPROGRAM:    DRSTPL (docblock incomplete)
C   PRGMMR: WOOLLEN          ORG: NP20       DATE: 1994-01-06
C
C ABSTRACT: THIS SUBROUTINE ....
C
C PROGRAM HISTORY LOG:
C 1994-01-06  J. WOOLLEN -- ORIGINAL AUTHOR
C 1998-07-08  J. WOOLLEN -- REPLACED CALL TO CRAY LIBRARY ROUTINE
C                           "ABORT" WITH CALL TO NEW INTERNAL BUFRLIB
C                           ROUTINE "BORT" (LATER REMOVED, UNKNOWN
C                           WHEN)
C 2002-05-14  J. WOOLLEN -- REMOVED OLD CRAY COMPILER DIRECTIVES
C 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
C                           INTERDEPENDENCIES
C 2003-11-04  D. KEYSER  -- MAXJL (MAXIMUM NUMBER OF JUMP/LINK ENTRIES)
C                           INCREASED FROM 15000 TO 16000 (WAS IN
C                           VERIFICATION VERSION); UNIFIED/PORTABLE FOR
C                           WRF; ADDED DOCUMENTATION (INCLUDING
C                           HISTORY) (INCOMPLETE)
C DART $Id$
C
C USAGE:    CALL DRSTPL (INOD, LUN, INV1, INV2, INVN)
C   INPUT ARGUMENT LIST:
C     INOD     - INTEGER: ....
C     LUN      - INTEGER: I/O STREAM INDEX INTO INTERNAL MEMORY ARRAYS
C     INV1     - INTEGER: ....
C     INV2     - INTEGER: ....
C     INVN     - INTEGER: ....
C
C   OUTPUT ARGUMENT LIST:
C     INVN     - INTEGER: ....
C
C REMARKS:
C    THIS ROUTINE CALLS:        INVWIN   NEWWIN   USRTPL
C    THIS ROUTINE IS CALLED BY: UFBRW
C                               Normally not called by any application
C                               programs.
C
C ATTRIBUTES:
C   LANGUAGE: FORTRAN 77
C   MACHINE:  PORTABLE TO ALL PLATFORMS
C
C$$$

      INCLUDE 'bufrlib.prm'

      COMMON /TABLES/ MAXTAB,NTAB,TAG(MAXJL),TYP(MAXJL),KNT(MAXJL),
     .                JUMP(MAXJL),LINK(MAXJL),JMPB(MAXJL),
     .                IBT(MAXJL),IRF(MAXJL),ISC(MAXJL),
     .                ITP(MAXJL),VALI(MAXJL),KNTI(MAXJL),
     .                ISEQ(MAXJL,2),JSEQ(MAXJL)

      CHARACTER*10 TAG
      CHARACTER*3  TYP

C-----------------------------------------------------------------------
C-----------------------------------------------------------------------

1     NODE = INOD
2     NODE = JMPB(NODE)
      IF(NODE.EQ.0) GOTO 100
      IF(TYP(NODE).EQ.'DRS' .OR. TYP(NODE).EQ.'DRB') THEN
         INVN = INVWIN(NODE,LUN,INV1,INV2)
         IF(INVN.GT.0) THEN
            CALL USRTPL(LUN,INVN,1)
            CALL NEWWIN(LUN,INV1,INV2)
            INVN = INVWIN(INOD,LUN,INVN,INV2)
            IF(INVN.GT.0) GOTO 100
            GOTO 1
         ENDIF
      ENDIF
      GOTO 2

C  EXIT
C  ----

100   RETURN
      END

max_stars_repo_name: hkershaw-brown/feature-preprocess

max_issues_repo_name: hkershaw-brown/feature-preprocess

max_forks_repo_name: hkershaw-brown/feature-preprocess


program me_test
  USE kinds, ONLY : DP
  USE base

  implicit none
  save
  integer :: nk, nb, nr1, nr2, nr3, ios
  integer :: np
  real :: start1, finish1, start2, finish2

  integer :: ii, fu
  real(dp),allocatable :: elda(:,:), elda_k(:)
  complex(dp),allocatable :: wfn(:,:), wfn2(:,:)

! ============================================================
! Get the user inputs
! Using NAMELIST and routines taken from QE
!
! ============================================================
  NAMELIST / me_inp / nk, nb, nr1, nr2, nr3
! ========== Defaults
  nk = 0 ; nb = 0 ; nr1 = 0 ; nr2 = 0 ; nr3 = 0;
! ========== Read in
  CALL input_from_file ( )
!
  READ (5, me_inp, iostat = ios)
!
  write(6,*) '======== Parameters ME_INP =========', nk
  write(6,*) 'nk=', nk
  write(6,*) 'nb=', nb

  write(6,'(A20,3i4)') 'nr1,  nr2,  nr3  = ', nr1, nr2, nr3
  close(5)

! ========== Declarations
  np = nr1*nr2*nr3
  allocate(elda_k(nb))
  allocate(wfn(np,nb))
  allocate(wfn2(np/8,nb))
! ============================================================
! Compare the UNKs and WFN_Rs
! ============================================================

! ========== Defaults
  call freeunit (fu)
  write(6,*) 'START elda'
  call read_elda(1,nb,elda_k,fu)
  write(6,*) 'eigs  = '
  write(6,*)(elda_k(ii), ii=1,nb)

  write(6,*) 'UNK'
  call cpu_time(start1)
  !do ii = 1, 10000
  call read_wfn ( 1, np/8, nb, wfn2, fu)
  !end do
  call cpu_time(finish1)

  write(6,*) 'WFN'
  call cpu_time(start2)
  !do ii = 1, 10000
  call read_wfn_fft ( 1, np, nb, wfn, fu)
  !end do
  call cpu_time(finish2)

  write(6,*) 'UNK times:', finish1-start1
  write(6,*) 'WFN times:', finish2-start2
  !call setup_fft (nx, ny, nz)

end program me_test


text: This Memorials memorial tree is located on the west side of the Northstar Nature Trail in the Covell Greenbelt.

max_stars_repo_name: voflo/Search

max_issues_repo_name: voflo/Search

max_forks_repo_name: voflo/Search


text:
C    %W% %G%
      integer function inam (alpha,kb)
      character*8 alpha
C
c     This function locates bus ALPHA, BASKV(KB) using a binary search
c     in arrays EXNAMEC and BASEKV(KB).
c
c     Returns:
c        N > 0 is the index to EXNAMEC().
c        N = 0 is an error condition.
c
c     Called from subroutines INPUT1,INPUT2,INPUT3,SHDINP, and ZNOINP.
C
      include 'tspinc/params.inc'
      include 'tspinc/comn34.inc'
      include 'tspinc/namec.inc'
      include 'tspinc/pointr.inc'
      include 'tspinc/blkcom1.inc'
      include 'tspinc/prt.inc'
      include 'tspinc/reread.inc'
C
C     Check for blank
C
      inam = 0
      if (alpha .eq. ' ') then
         errflag = 1
      else
         i1 = 1
         i2 = ntot
         do while (i1 .le. i2 .and. inam .eq. 0)
            jnam = (i1 + i2)/2
            komp = kompr (exnamc(jnam), alpha, kdum)
            if (komp .eq. 0) komp = ixnamn(jnam) - kb
            if (komp .eq. 0) then
               inam = jnam
            else if (komp .lt. 0) then
               i1 = jnam + 1
            else
               i2 = jnam - 1
            endif
         enddo
         if (inam .eq. 0) then
            if (kb .ne. 0) then
               base = basekv(kb)
            else
               base = 0.0
            endif
            write (errbuf(1), 100) buffer
  100       format('0', a)
            write (errbuf(2), 110) alpha, base
  110       format(' This record ignored because bus (', a8, f7.1,
     &             ') is not in POWERFLOW hase case data.')
            if (errflag .eq. 0) then
               call prterr ('W', 2)
            else
               call prterr ('E', 2)
               iabort = 1
            endif
            errflag = 1
         endif
      endif
      return
      end

max_stars_repo_name: mbheinen/bpa-ipf-tsp

max_issues_repo_name: cuihantao/bpa-ipf-tsp

max_forks_repo_name: mbheinen/bpa-ipf-tsp


text:
c     end PRanf

c==============================================================================

      subroutine Rans( NIn, Seed1, SeedArray )

c------------------------------------------------------------------------------
c
c     This routine divides the sequence of random numbers into N subsequences,
c     each with its own seed.  The seeds for the independent subsequences are
c     returned in the seed array.  if Seed1 is zero, all zeroes will be returned.
c     To prevent this, Seed1 is set to [3281, 4041, 595, 2376], which is
c     statistically the best starting seed.  The wheel is then divided into the
c     N pieces (where N is odd and >= NIn) by dividing its period (2**46) by N.
c
c     Then, seed(i) = seed(i-1) * (a**k mod 2**48), and 1<=k<=N.
c
c     Here, 'a' is the multiplier used by the linear congruential generator whose
c     wheel we are dividing up.
c
c     The number of streams must be odd; if NIn is even N will be NIn+1, and
c     n extra stream of random numbers will be available that will not get used.
c
c     It returns an array of seeds, each an array of 4 integers that are used as
c     the digits of a four-digit modulo-4096 integer.
c
c------------------------------------------------------------------------------

      include 'pranf.inc'

      integer NIn, Seed1, DefaultValues, SeedArray, N, atothek, K,
     1     KBinary, InSeed, OutSeed

c******************************************************************************
c**** Data common to the PRanf package.
      integer Multiplier, DefaultSeed

      real*8 Divisor

      dimension Multiplier( IRandNumSize ), DefaultSeed( IRandNumSize ),
     1     Divisor( IRandNumSize )

      common / PRanfCom / Multiplier, DefaultSeed, Divisor
c**** End of PRanf common data
c******************************************************************************

      dimension DefaultValues( IRandNumSize ),
     1     SeedArray( IRandNumSize, MaxStreams ),
     2     atothek( IRandNumSize ),
     3     K( IRandNumSize ),
     4     KBinary( IBinarySize ),
     5     InSeed( IRandNumSize ),
     6     OutSeed( IRandNumSize )

      INTEGER NisOdd

c     scatter, shared SeedArray

c------------------------------------------------------------------------------

c     write( *, 10 ) NIn, Seed1
 10   format( ' Rans: NIn = ', i6, '  Seed1 = ', i6, /,
     1     '------' )

      IZero = 0

c**** Make sure we are generating an odd number of random number sequences.
      if( NisOdd( NIn ) .eq. 1 ) then
         N = NIN
      else
         N = NIn + 1
      endif

c**** Set up the initial seed to either a legal input value or its default
c**** values. The input integer, if nonzero, is used for the first of the
c**** four modulo-4096 digits of the actual initial seed.

c**** The First element of the returned SeedArray will be used here, since
c**** at least one seed will be returned, and the first seed of the set
c**** returned will be the seed for the entire wheel.
      if( Seed1 .eq. IZero ) then
         SeedArray( 1, 1 ) = DefaultSeed( 1 )
         SeedArray( 2, 1 ) = DefaultSeed( 2 )
         SeedArray( 3, 1 ) = DefaultSeed( 3 )
         SeedArray( 4, 1 ) = DefaultSeed( 4 )
      else
         SeedArray( 1, 1 ) = abs( Seed1 )
         SeedArray( 2, 1 ) = IZero
         SeedArray( 3, 1 ) = IZero
         SeedArray( 4, 1 ) = IZero
      endif

c**** 'a' is the multiplier for the Ranf linear congruential generator.
      if( N .eq. 1 ) then
c*******If only one stream of random numbers is needed, do not bother to
c*******raise 'a' to the first power.
         atothek( 1 ) = Multiplier( 1 )
         atothek( 2 ) = Multiplier( 2 )
         atothek( 3 ) = Multiplier( 3 )
         atothek( 4 ) = Multiplier( 4 )
      else
c*******more than one stream is needed; generate the Kth seed by multiplying
c*******the K-1st seed by the multiplier raised to the Nth power.
         CALL ranfk( N, K )
         CALL ranfkbinary( K, KBinary )
         CALL ranfatok( Multiplier, KBinary, atothek )
         do 100 I = 2, N
            InSeed( 1 ) = SeedArray( 1, I-1 )
            InSeed( 2 ) = SeedArray( 2, I-1 )
            InSeed( 3 ) = SeedArray( 3, I-1 )
            InSeed( 4 ) = SeedArray( 4, I-1 )
            CALL ranfmodmult( InSeed, atothek, OutSeed )
            SeedArray( 1, I ) = OutSeed( 1 )
            SeedArray( 2, I ) = OutSeed( 2 )
            SeedArray( 3, I ) = OutSeed( 3 )
            SeedArray( 4, I ) = OutSeed( 4 )
 100     continue
      endif

c     write( *, 110 )
 110  format( '   leaving Rans' )

      return
      end

c MJC mod to remove statement function
      INTEGER FUNCTION NISODD( M )
c****  check for argument numbers being odd.
      NIsOdd = mod( m, 2 )
      RETURN
      END

max_stars_repo_name: gmlueck/llvm-test-suite

max_issues_repo_name: gmlueck/llvm-test-suite

max_forks_repo_name: gmlueck/llvm-test-suite


text:
subroutine getcel(filnam    ,grpnam    ,nelems    ,elmnms    ,elmdms    , &
                & elmqty    ,elmunt    ,elmdes    ,elmtps    ,nbytsg    , &
                & elmnam    ,celidt    ,wrilog    ,error     )
!----- GPL ---------------------------------------------------------------------
!
!  Copyright (C)  Stichting Deltares, 2011-2016.
!
!  This program is free software: you can redistribute it and/or modify
!  it under the terms of the GNU General Public License as published by
!  the Free Software Foundation version 3.
!
!  This program is distributed in the hope that it will be useful,
!  but WITHOUT ANY WARRANTY; without even the implied warranty of
!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
!  GNU General Public License for more details.
!
!  You should have received a copy of the GNU General Public License
!  along with this program.  If not, see <http://www.gnu.org/licenses/>.
!
!  contact: delft3d.support@deltares.nl
!  Stichting Deltares
!  P.O. Box 177
!  2600 MH Delft, The Netherlands
!
!  All indications and logos of, and references to, "Delft3D" and "Deltares"
!  are registered trademarks of Stichting Deltares, and remain the property of
!  Stichting Deltares. All rights reserved.
!
!-------------------------------------------------------------------------------
!  $Id: getcel.f90 5986 2016-04-07 13:44:24Z mourits $
!  $HeadURL: https://svn.oss.deltares.nl/repos/delft3d/tags/6686/src/engines_gpl/flow2d3d/packages/kernel/src/general/getcel.f90 $
!!--description-----------------------------------------------------------------
!
!    Function: Detect the number of time steps on filnam (map-
!              or his-file)
! Method used:
!
!!--pseudo code and references--------------------------------------------------
! NONE
!!--declarations----------------------------------------------------------------
    use precision
    use string_module
!
    implicit none
!
! Global variables
!
    integer         :: celidt !  Description and declaration in nefisio.igs
    integer         :: error
                                   !!  Error flag for NEFIS files
    integer         :: nelems
                                   !!  Number of elements in this cell and
                                   !!  group.
    integer, dimension(*) :: nbytsg
                                   !!  Array containing info about the size,
                                   !!  in bytes, of each element type
                                   !!  (ELMTPS). So for a REAL*4, this array
                                   !!  contains a 4. The size of the array
                                   !!  is (NELEMS).
    integer, dimension(6, *) :: elmdms !  Description and declaration in nefisio.igs
    logical, intent(in)            :: wrilog
                                   !!  Flag to write file
                                   !!    .TRUE. : write to  file
                                   !!    .FALSE.: read from file
    character(*)    :: elmnam
                                   !!  Name of element, who's values must
                                   !!  be written or read. This name must
                                   !!  be on of the set ELMNMS.
    character(*), intent(in)       :: filnam
                                   !!  Name for communication file
                                   !!  com-<case><label>
    character(*)    :: grpnam
                                   !!  Name of data group to write to or
                                   !!  to read from. This name is also
                                   !!  used as the name for the cell and
                                   !!  group-definition.
    character(*), dimension(*) :: elmdes
                                   !!  Array with element description (i.e.
                                   !!  cartesian coordinate etc., etc.)
    character(*), dimension(*) :: elmnms
                                   !!  Array with names of the elements to
                                   !!  be used in the cell
    character(*), dimension(*) :: elmqty
                                   !!  Array with element quantity (i.e.
                                   !!  length, force  etc., etc.)
    character(*), dimension(*) :: elmtps
                                   !!  Array with element types (i.e. REAL,
                                   !!  INTEGER etc., etc.)
    character(*), dimension(*) :: elmunt
                                   !!  Array with element physical unit
                                   !!  (i.e. m  m/s etc., etc.)
!
!
! Local variables
!
    integer                        :: datlen
    integer                        :: deflen
    integer                        :: fd_nef
    integer                        :: ierror
    integer                        :: ind
    integer, dimension(5)          :: grpdms
    integer                        :: grpndm
    integer, dimension(5)          :: grpord
    integer, external              :: clsnef
    integer, external              :: crenef
    integer, external              :: inqgrp
    integer, external              :: inqmxi
    integer, external              :: neferr
    character(1)                   :: coding
    character(134)                 :: errstr
    character(2)                   :: access
    character(256)                 :: datnam
    character(256)                 :: defnam
!
!
!! executable statements -------------------------------------------------------
!
    !
    ! Initialization
    !
    grpndm = 5
    coding = 'N'
    fd_nef = -1
    !
    ! aggregate file names
    !
    ind = len_trim(filnam)+1
    !
    datnam = filnam
    datnam(ind:ind + 3) = '.dat'
    call remove_leading_spaces(datnam    ,datlen    )
    !
    defnam = filnam
    defnam(ind:ind + 3) = '.def'
    call remove_leading_spaces(defnam    ,deflen    )
    !
    ! write or read data from nefis files
    !
    if (wrilog) then
       access = 'u'
    else
       access = 'r'
    endif
    !
    error = crenef(fd_nef, datnam(1:datlen), defnam(1:deflen), coding, access)
    if (error/=0 .and. .not.wrilog) then
       error = -211
       goto 10000
    endif
    if (error/=0) goto 9999
    !
    ! Read name of the group definition of a data group from
    ! data file.
    !
    error = inqgrp(fd_nef, grpnam, grpnam, grpndm, grpdms, grpord)
    if (error==0) then
       celidt = grpdms(1)
       !
       ! Test value of celidt if celidt = 0 then get celidt with INQMXI
       !
       if (celidt<=0) then
          error = inqmxi(fd_nef, grpnam, celidt)
       endif
    endif
    if (error/=0 .or. celidt<0) celidt = 0
    !
    ! No error message needed when group does not exist (error == 6007)
    !
    if (error==6007) goto 10000
 9999 continue
    if (error/=0) ierror = neferr(1, errstr)
10000 continue
    ierror = clsnef(fd_nef)
end subroutine getcel

max_stars_repo_name: liujiamingustc/phd

max_issues_repo_name: liujiamingustc/phd

max_forks_repo_name: liujiamingustc/phd


text:
c
c
c     ###################################################
c     ##  COPYRIGHT (C)  2000  by  Jay William Ponder  ##
c     ##              All Rights Reserved              ##
c     ###################################################
c
c     ################################################################
c     ##                                                            ##
c     ##  subroutine kmetal  --  ligand field parameter assignment  ##
c     ##                                                            ##
c     ################################################################
c
c
c     "kmetal" assigns ligand field parameters to transition metal
c     atoms and processes any new or changed parameter values
c
c
      subroutine kmetal
      implicit none
c
c
c     add any setup for ligand field parameters below here
c
      return
      end

max_stars_repo_name: htna/HCsbLib

max_issues_repo_name: htna/HCsbLib

max_forks_repo_name: htna/HCsbLib


text:
        !COMPILER-GENERATED INTERFACE MODULE: Tue Oct 10 17:23:01 2017
        MODULE NPPZDD_MOD__genmod
          INTERFACE
            SUBROUTINE NPPZDD_MOD
              USE BIO_MOD
            END SUBROUTINE NPPZDD_MOD
          END INTERFACE
        END MODULE NPPZDD_MOD__genmod

max_stars_repo_name: BingzhangChen/NPZDFeCONT

max_issues_repo_name: BingzhangChen/NPZDFeCONT

max_forks_repo_name: BingzhangChen/NPZDFeCONT


text:
!
!     CalculiX - A 3-dimensional finite element program
!              Copyright (C) 1998-2020 Guido Dhondt
!
!     This program is free software; you can redistribute it and/or
!     modify it under the terms of the GNU General Public License as
!     published by the Free Software Foundation(version 2);
!
!
!     This program is distributed in the hope that it will be useful,
!     but WITHOUT ANY WARRANTY; without even the implied warranty of
!     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
!     GNU General Public License for more details.
!
!     You should have received a copy of the GNU General Public License
!     along with this program; if not, write to the Free Software
!     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
      subroutine errorestimator(yi,yn,ipkon,kon,lakon,nk,
     &  ne,mi,ielmat,nterms,inum,co,vold,cflag,ielprop,prop)
!
!     the error in the node is calculated based on the maximum difference
!     between the max principal stress (mechanical calculations)
!     or heat flux size (thermal calculations) at the integration
!     points in the elements belonging to the node
!
!     for mechanical applications this error is converted into a
!     true stress error with heuristic equations
!
      implicit none
!
      logical force
!
      character*1 cflag
      character*8 lakon(*),lakonl
!
      integer ipkon(*),kon(*),mi(*),ne,indexe,null,nonei20(3,12),
     &  nonei10(3,6),nk,i,j,k,node,nonei15(3,9),nopev,nterms,
     &  mint3d,ielmat(mi(3),*),inum(*),ielprop(*)
!
      real*8 yi(nterms,mi(1),*),yn(nterms,*),size,wpsmin,wpsmax,
     &  absdiff,reldiff,sizemax,al(3),sizemin,c(3,3),prop(*),
     &  wpsmin1,wpsmax1,wpsmin3,wpsmax3,co(3,*),vold(0:mi(2),*)
!
      data nonei10 /5,1,2,6,2,3,7,3,1,8,1,4,9,2,4,10,3,4/
!
      data nonei15 /7,1,2,8,2,3,9,3,1,10,4,5,11,5,6,12,6,4,
     &  13,1,4,14,2,5,15,3,6/
!
      data nonei20 /9,1,2,10,2,3,11,3,4,12,4,1,
     &  13,5,6,14,6,7,15,7,8,16,8,5,
     &  17,1,5,18,2,6,19,3,7,20,4,8/
!
      null=0
!
      do i=1,nk
         do j=1,nterms
            yn(j,i)=0.d0
         enddo
      enddo
!
      do i=1,ne
!
         if(ipkon(i).lt.0) cycle
         indexe=ipkon(i)
         lakonl=lakon(i)
!
         if(lakonl(7:8).eq.'LC') cycle
!
         if(lakonl(1:1).eq.'F') then
            cycle
         elseif(lakonl(4:4).eq.'2') then
            nopev=8
         elseif(lakonl(4:4).eq.'8') then
            nopev=8
         elseif(lakonl(4:5).eq.'10') then
            nopev=4
         elseif(lakonl(4:4).eq.'4') then
            nopev=4
         elseif(lakonl(4:5).eq.'15') then
            nopev=6
         elseif(lakonl(4:4).eq.'6') then
            nopev=6
         else
            cycle
         endif
!
         if(lakonl(4:5).eq.'8R') then
            mint3d=1
         elseif((lakonl(4:4).eq.'8').or.
     &           (lakonl(4:6).eq.'20R')) then
            mint3d=8
         elseif(lakonl(4:4).eq.'2') then
            mint3d=27
         elseif(lakonl(4:5).eq.'10') then
            mint3d=4
         elseif(lakonl(4:4).eq.'4') then
            mint3d=1
         elseif(lakonl(4:5).eq.'15') then
            mint3d=9
         elseif(lakonl(4:5).eq.'6') then
            mint3d=2
         elseif(lakonl(1:2).eq.'ES') then
            cycle
         endif
!
!        calculating the maximal differences of first principal
!        stress across the integration points or of the
!        temperatures across the nodes
!
         absdiff=0.d0
         reldiff=0.d0
!
         if(nterms.eq.6) then
!
!           mechanical calculation: max principal stress
!
            wpsmin1=1.d30
            wpsmax1=-1.e30
!
            wpsmin3=1.d30
            wpsmax3=-1.e30
!
            do j=1,mint3d
               c(1,1)=yi(1,j,i)
               c(2,2)=yi(2,j,i)
               c(3,3)=yi(3,j,i)
               c(1,2)=yi(4,j,i)
               c(1,3)=yi(5,j,i)
               c(2,3)=yi(6,j,i)
!
!              calculate the eigenvalues
!
!              al(1): smallest eigenvalue
!              al(3): largest eigenvalue
!
               call calceigenvalues(c,al)
!
               wpsmin1=min(wpsmin1,al(1))
               wpsmax1=max(wpsmax1,al(1))
               wpsmin3=min(wpsmin3,al(3))
               wpsmax3=max(wpsmax3,al(3))
!
            enddo
!
!           check which eigenvalue is the largest in
!           absolute value
!
            if(wpsmax3.ge.-wpsmin1) then
               wpsmin=wpsmin3
               wpsmax=wpsmax3
            else
               wpsmin=wpsmin1
               wpsmax=wpsmax1
            endif
!
            absdiff=wpsmax-wpsmin
            if(max(dabs(wpsmax),dabs(wpsmin)).lt.1.d-30) then
               reldiff=0.d0
            else
               reldiff=absdiff/(max(dabs(wpsmax),dabs(wpsmin)))
            endif
         else
!
!           thermal calculation: temperature at the vertex nodes
!
            sizemin=1.e30
            sizemax=0.d0
!
c            do j=1,mint3d
c               c(1,1)=yi(1,j,i)
c               c(2,2)=yi(2,j,i)
c               c(3,3)=yi(3,j,i)
c!
c               size=dsqrt(c(1,1)**2+c(2,2)**2+c(3,3)**2)
c               sizemin=min(sizemin,size)
c               sizemax=max(sizemax,size)
c!
c            enddo
            do j=1,nopev
               size=vold(0,kon(indexe+j))
               sizemin=min(sizemin,size)
               sizemax=max(sizemax,size)
            enddo
            absdiff=sizemax-sizemin
            if(max(sizemax,sizemin).lt.1.d-30) then
               reldiff=0.d0
            else
               reldiff=absdiff/(max(dabs(sizemax),dabs(sizemin)))
            endif
         endif
!
!        transferring the maximum to the nodes belonging to the
!        element
!
         do j=1,nopev
            yn(2,kon(indexe+j))=max(yn(2,kon(indexe+j)),reldiff)
         enddo
!
      enddo
!
!     converting the error estimator into a stress error (%)
!     through heuristic relationships
!
!     not covered: C3D8R* and C3D6* elements
!
      if(nterms.eq.6) then
         do i=1,ne
!
            if(ipkon(i).lt.0) cycle
            indexe=ipkon(i)
            lakonl=lakon(i)
!
            if(lakonl(7:8).eq.'LC') cycle
!
            if(lakonl(1:1).eq.'F') then
               cycle
            elseif(lakonl(4:4).eq.'2') then
               nopev=8
            elseif(lakonl(4:4).eq.'8') then
               nopev=8
            elseif(lakonl(4:5).eq.'10') then
               nopev=4
            elseif(lakonl(4:4).eq.'4') then
               nopev=4
            elseif(lakonl(4:5).eq.'15') then
               nopev=6
            elseif(lakonl(4:4).eq.'6') then
               nopev=6
            else
               cycle
            endif
!
            if(lakonl(4:5).eq.'10') then
!
!              10-node tetrahedral element
!
               do j=1,nopev
                  node=kon(indexe+j)
                  yn(1,node)=max(yn(1,node),30.000d0*yn(2,node))
               enddo
            elseif((lakonl(4:7).eq.'20  ').or.
     &              (lakonl(4:7).eq.'20 L').or.
     &              (lakonl(4:7).eq.'20 B')) then
!
!              true 20-node brick element or S8 or B32 (shell/beam)
!
               do j=1,nopev
                  node=kon(indexe+j)
                  if(yn(2,node).le.0.26d0) then
                     yn(1,node)=max(yn(1,node),5.115d0*yn(2,node))
                  else
                     yn(1,node)=max(yn(1,node),
     &                              27.792d0*yn(2,node)-5.895d0)
                  endif
               enddo
            elseif(lakonl(4:6).eq.'20 ') then
!
!              expanded 20-node brick element (plane stress,
!              plane strain or axisymmetric)
!
               do j=1,nopev
                  node=kon(indexe+j)
                  if(yn(2,node).le.0.325d0) then
                     yn(1,node)=max(yn(1,node),9.538d0*yn(2,node))
                  else
                     yn(1,node)=
     &                    max(yn(1,node),53.695d0*yn(2,node)-14.351d0)
                  endif
               enddo
            elseif((lakonl(4:7).eq.'20R ').or.
     &              (lakonl(4:7).eq.'20RL').or.
     &              (lakonl(4:7).eq.'20RB')) then
!
!              true 20-node brick element with reduced integration
!              or S8R or B32R (shell/beam)
!
               do j=1,nopev
                  node=kon(indexe+j)
                  if(yn(2,node).le.0.18d0) then
                     yn(1,node)=max(yn(1,node),20.278d0*yn(2,node))
                  else
                     yn(1,node)=max(yn(1,node),
     &                              74.318d0*yn(2,node)-9.727d0)
                  endif
               enddo
            elseif(lakonl(4:6).eq.'20R') then
!
!              expanded 20-node brick element with reduced integration
!              (plane stress, plane strain or axisymmetric)
!
               do j=1,nopev
                  node=kon(indexe+j)
                  yn(1,node)=max(yn(1,node),54.054d0*yn(2,node))
               enddo
            elseif(lakonl(4:5).eq.'8I') then
!
!              true C3D8I-element or S4 or BE31 (shell/beam)
!
               do j=1,nopev
                  node=kon(indexe+j)
                  if(yn(2,node).le.0.165d0) then
                     yn(1,node)=max(yn(1,node),30.303d0*yn(2,node))
                  else
                     yn(1,node)=
     &                    max(yn(1,node),139.535d0*yn(2,node)-18.023d0)
                  endif
               enddo
            elseif(lakonl(4:7).eq.'8   ') then
!
!              true 8-node brick element
!
               do j=1,nopev
                  node=kon(indexe+j)
                  if(yn(2,node).le.0.157d0) then
                     yn(1,node)=max(yn(1,node),31.847d0*yn(2,node))
                  else
                     yn(1,node)=max(yn(1,node),
     &                              85.324d0*yn(2,node)-8.396d0)
                  endif
               enddo
            elseif(lakonl(4:5).eq.'8 ') then
!
!              expanded 8-node brick element (plane stress, plane strain
!              or axisymmetric)
!
               do j=1,nopev
                  node=kon(indexe+j)
                  yn(1,node)=max(yn(1,node),74.074d0*yn(2,node))
               enddo
            elseif(lakonl(4:5).eq.'15') then
!
!              true or expanded 15-node wedge element
!
               do j=1,nopev
                  node=kon(indexe+j)
                  yn(1,node)=max(yn(1,node),46.189d0*yn(2,node))
               enddo
            endif
         enddo
!
!     converting the error estimator into a temperature error (%)
!     through heuristic relationships
!
!     not covered: C3D8R, C3D8I and C3D15 elements
!
      elseif(nterms.eq.3) then
         do i=1,ne
!
            if(ipkon(i).lt.0) cycle
            indexe=ipkon(i)
            lakonl=lakon(i)
!
            if(lakonl(7:8).eq.'LC') cycle
!
            if(lakonl(1:1).eq.'F') then
               cycle
            elseif(lakonl(4:4).eq.'2') then
               nopev=8
            elseif(lakonl(4:4).eq.'8') then
               nopev=8
            elseif(lakonl(4:5).eq.'10') then
               nopev=4
            elseif(lakonl(4:4).eq.'4') then
               nopev=4
            elseif(lakonl(4:5).eq.'15') then
               nopev=6
            elseif(lakonl(4:4).eq.'6') then
               nopev=6
            else
               cycle
            endif
!
            if(lakonl(4:4).eq.'4') then
!
!              4-node tetrahedral element
!
               do j=1,nopev
                  node=kon(indexe+j)
                  yn(1,node)=max(yn(1,node),
     &                           12.5064d0*yn(2,node)+0.62694d0)
               enddo
            elseif(lakonl(4:5).eq.'10') then
!
!              10-node tetrahedral element
!
               do j=1,nopev
                  node=kon(indexe+j)
                  yn(1,node)=max(yn(1,node),
     &                           6.6739d0*yn(2,node)+0.0668d0)
               enddo
            elseif((lakonl(4:7).eq.'20  ').or.
     &              (lakonl(4:7).eq.'20 L').or.
     &              (lakonl(4:7).eq.'20 B')) then
!
!              true 20-node brick element or S8 or B32 (shell/beam)
!
               do j=1,nopev
                  node=kon(indexe+j)
                  yn(1,node)=max(yn(1,node),
     &                           3.0980d0*yn(2,node)+0.0744d0)
               enddo
            elseif(lakonl(4:6).eq.'20 ') then
!
!              expanded 20-node brick element (plane stress,
!              plane strain or axisymmetric)
!
               do j=1,nopev
                  node=kon(indexe+j)
                  yn(1,node)=max(yn(1,node),2.791d0*yn(2,node)+0.146d0)
               enddo
            elseif(lakonl(4:7).eq.'20R ') then
!
!              true 20-node brick element with reduced integration
!
               do j=1,nopev
                  node=kon(indexe+j)
                  yn(1,node)=max(yn(1,node),
     &                           2.6085d0*yn(2,node)+0.03934d0)
               enddo
            elseif((lakonl(4:7).eq.'20RL').or.
     &              (lakonl(4:7).eq.'20RB')) then
!
!              S8R or B32R (shell/beam)
!
               do j=1,nopev
                  node=kon(indexe+j)
                  yn(1,node)=max(yn(1,node),2.566d0*yn(2,node)+0.0485d0)
               enddo
            elseif(lakonl(4:6).eq.'20R') then
!
!              expanded 20-node brick element with reduced integration
!              (plane stress, plane strain or axisymmetric)
!
               do j=1,nopev
                  node=kon(indexe+j)
                  yn(1,node)=max(yn(1,node),2.337d0*yn(2,node)+0.0985d0)
               enddo
            elseif(lakonl(4:5).eq.'8I') then
!
!              true C3D8I element S4 or BE31 (shell/beam)
!
               do j=1,nopev
                  node=kon(indexe+j)
                  if(yn(2,node).le.0.0490d0) then
                     yn(1,node)=max(yn(1,node),
     &                              7.3703d0*yn(2,node)+0.413d0)
                  else
                     yn(1,node)=
     &                    max(yn(1,node),3.8261d0*yn(2,node)+0.587d0)
                  endif
               enddo
            elseif(lakonl(4:7).eq.'8   ') then
!
!              true 8-node brick element
!
               do j=1,nopev
                  node=kon(indexe+j)
                  if(yn(2,node).le.0.0412d0) then
                     yn(1,node)=max(yn(1,node),
     &                              8.069d0*yn(2,node)+0.351d0)
                  else
                     yn(1,node)=max(yn(1,node),
     &                              3.858d0*yn(2,node)+0.525d0)
                  endif
               enddo
            elseif(lakonl(4:5).eq.'8 ') then
!
!              expanded 8-node brick element (plane stress, plane strain
!              or axisymmetric)
!
               do j=1,nopev
                  node=kon(indexe+j)
                  if(yn(2,node).le.0.0412d0) then
                     yn(1,node)=max(yn(1,node),
     &                              8.069d0*yn(2,node)+0.351d0)
                  else
                     yn(1,node)=max(yn(1,node),
     &                              3.858d0*yn(2,node)+0.525d0)
                  endif
               enddo
            elseif(lakonl(4:5).eq.'6  L') then
!
!              S3-element expanded into C3D6
!
               do j=1,nopev
                  node=kon(indexe+j)
                  if(yn(2,node).le.0.0203d0) then
                     yn(1,node)=max(yn(1,node),
     &                              26.951d0*yn(2,node)+0.514d0)
                  elseif(yn(2,node).le.0.0608d0) then
                     yn(1,node)=max(yn(1,node),
     &                              3.0485d0*yn(2,node)+0.999d0)
                  else
                     yn(1,node)=max(yn(1,node),
     &                              10.335d0*yn(2,node)+0.556d0)
                  endif
               enddo
            elseif(lakonl(4:4).eq.'6') then
!
!              true or expanded 6-node wedge element
!
               do j=1,nopev
                  node=kon(indexe+j)
                  yn(1,node)=max(yn(1,node),
     &                           13.3096d0*yn(2,node)+0.179d0)
               enddo
            elseif((lakonl(4:5).eq.'15 A').or.
     &             (lakonl(4:5).eq.'15 E').or.
     &             (lakonl(4:5).eq.'15 S')) then
!
!              CAX6, CPS6 or CPE6 element
!
               do j=1,nopev
                  node=kon(indexe+j)
                  yn(1,node)=max(yn(1,node),3.576d0*yn(2,node)+0.1552d0)
               enddo
            elseif(lakonl(4:5).eq.'15') then
!
!              true or expanded 15-node wedge element
!
               do j=1,nopev
                  node=kon(indexe+j)
                  yn(1,node)=max(yn(1,node),
     &                           3.5303d0*yn(2,node)+0.15927d0)
               enddo
            endif
         enddo
      endif
!
!     determining the field values in the midside nodes
!
      do i=1,ne
!
         if(ipkon(i).lt.0) cycle
         indexe=ipkon(i)
         lakonl=lakon(i)
!
         if(lakonl(7:8).eq.'LC') cycle
!
         if(lakonl(4:5).eq.'20') then
            do j=9,20
               do k=1,2
                  yn(k,kon(indexe+j))=(
     &                 yn(k,kon(indexe+nonei20(2,j-8)))+
     &                 yn(k,kon(indexe+nonei20(3,j-8))))/2.d0
               enddo
            enddo
         elseif(lakonl(4:5).eq.'10') then
            do j=5,10
               do k=1,2
                  yn(k,kon(indexe+j))=(yn(k,kon(indexe+nonei10(2,j-4)))+
     &                 yn(k,kon(indexe+nonei10(3,j-4))))/2.d0
               enddo
            enddo
         elseif(lakonl(4:5).eq.'15') then
            do j=7,15
               do k=1,2
                  yn(k,kon(indexe+j))=(
     &                 yn(k,kon(indexe+nonei15(2,j-6)))+
     &                 yn(k,kon(indexe+nonei15(3,j-6))))/2.d0
               enddo
            enddo
         endif
      enddo
!
!     mapping 3D on 1D/2D
!
      if(cflag.eq.'I') then
         force=.false.
         call map3dto1d2d(yn,ipkon,inum,kon,lakon,nterms,nk,
     &  ne,cflag,co,vold,force,mi,ielprop,prop)
      endif
!
      return
      end

max_stars_repo_name: alleindrach/calculix-desktop

max_issues_repo_name: alleindrach/calculix-desktop

max_forks_repo_name: alleindrach/calculix-desktop


text:
      SUBROUTINE FFDOT(I,ZMS,XS,VS,SS)
*
*
*       Force & first derivative corrections.
*       -------------------------------------
*
      INCLUDE 'common6.h'
      REAL*8  A(9),F1(3),F1DOT(3),XS(3),VS(3)
*
*
*       Obtain force and first derivative due to body #J.
      DO 15 K = 1,3
          A(K) = XS(K) - X(K,I)
          A(K+3) = VS(K) - XDOT(K,I)
   15 CONTINUE
*
      A(7) = 1.0/(A(1)*A(1) + A(2)*A(2) + A(3)*A(3))
      A(8) = ZMS*A(7)*SQRT(A(7))
      A(9) = 3.0*(A(1)*A(4) + A(2)*A(5) + A(3)*A(6))*A(7)
*
      DO 20 K = 1,3
          F1(K) = A(K)*A(8)
          F1DOT(K) = (A(K+3) - A(K)*A(9))*A(8)
   20 CONTINUE
*
*       Subtract dominant contributions from F/2 and FDOT/6.
      DO 25 K = 1,3
          F(K,I) = F(K,I) - SS*0.5D0*F1(K)
          FDOT(K,I) = FDOT(K,I) - SS*ONE6*F1DOT(K)
          FI(K,I) = FI(K,I) - SS*F1(K)
          FIDOT(K,I) = FIDOT(K,I) - SS*F1DOT(K)
   25 CONTINUE
*
      DE = SS*BODY(I)*ZMS*A(7)
      ECOLL = ECOLL + DE
      BE(3) = BE(3) + DE
*
      RETURN
*
      END


text:
C--------------------------------------------------------------------------
        subroutine ftucrd(ounit,keywrd,card,status)

C       update a 80-character FITS header card/record
C
C       ounit   i  fortran output unit number
C       keywrd  c  keyword name    ( 8 characters, cols.  1- 8)
C       card    c  80-character FITS card image
C       OUTPUT PARAMETERS:
C       status  i  output error status (0 = ok)
C
C       written by Wm Pence, HEASARC/GSFC, May 1995

        character*(*) keywrd,card
        integer ounit,status,tstat

        if (status .gt. 0)return
        tstat=status

C       try modifying the card, if it exists
        call ftmcrd(ounit,keywrd,card,status)

        if (status .eq. 202)then
C               card doesn't exist, so create it
                status=tstat
                call ftprec(ounit,card,status)
        end if
        end

max_stars_repo_name: iraf-community/stsdas

max_issues_repo_name: kirxkirx/iraf

max_forks_repo_name: kirxkirx/iraf


text:
      REAL LBH,LHN
      REAL*8 DELTIN,DELTOT
      INTEGER MES2(20),LENIN,LENOT
      INTEGER*2 NSINES
      LOGICAL CROSS,tflag,nfound
      INTEGER*2 NI,NNODES,NLIN1,NLIN2,NODE,NODE1,IWAVE,NP,FS,S,ITHR,
     & NTHNODE,IPRNT, pltn  !! 6/5/07
      DIMENSION Y(5100),DERY(5100),AUX(8,5100),PRMT(5)
      COMMON/PPARAM/ VALH(5100),VALM(5100),VALP(5100),VALN(5100)
      COMMON/PPARAM/ DERH(5100),DERM(5100),DERP(5100),DERN(5100)
      DIMENSION VM(20),TM(20),NN(20),UM(20),NXGT(20),IN(10)
      COMMON F,R,T,SODO,SODI,POTO,POTI,PNAB,PKB,PPB,GL,VL,ER
      COMMON VMAX,VTH,IPT,IPRNT,NLIN1,NLIN2,NON,XPD,XPD2,UIO,UIO2
      COMMON NODE,NODE1
      COMMON IWAVE,FREQ,FREQ2,AMP2,ANGLE,ANGLE2,DCOFF,TAUS,DELAY
      COMMON PROD,PROD2,XMULT,PIMULT
      COMMON CA(4,3),CB(4,3),CGA,CGM,CCM,AREA,XA,YA,XC,YC,WIREL,EL,RHOE
      COMMON TIM(1100),EPOT(1100),EPT(1100)
      COMMON UINA(1100),UIK(1100),UIP(1100),UIL(1100)
      COMMON TMAX,TEND,ITHR,INNGTT,NNGTT,NODEZ
      COMMON/SWTCH/FS,S,pltn,TT,tflag(6),Tp,nfound
      COMMON/FLD/VREF,DIAM,NP,PL(128),PT(128)
      COMMON/CBPARM/AB,LBH,CMB,GMB !AREA,RESISTANCE,CAPACITANCE,CONDUCTANCE CELL BODY
      COMMON/HPARAM/AH,LHN,CMH,GMH !AREA,RESISTANCE,CAPACITANCE,CONDUCTANCE HILLOCK
      COMMON/WPARM/WB,DIAMB,WH,DIAMH,AN,GAP,GAH,GAB,SUMK(1100)
      COMMON/INARRAYS/EPOTIN(1100),NSINES,SINEIN(1100,3),
     &SINEIN2(1100,3),XIN(8001),YIN(8001),XCAL(2392000),
     &YCAL(2392000),YINTERP(2400001)

max_stars_repo_name: mwzappe/Ananke

max_issues_repo_name: mwzappe/Ananke

max_forks_repo_name: mwzappe/Ananke


text:
!*******************************************************************
!                                                                  *
      SUBROUTINE RECO4(JA1,JA2,JA3,JA4,K1,K2,K3,K4,KA,IRE,IAT,RECC)
!                                                                  *
!   ---------------  SECTION REC    SUBPROGRAM 09  --------------  *
!                                                                  *
!     SUBROUTINE CALLED:  DIAGA1,DIAGA2,DIAGA3,DIAGA4              *
!                                                                  *
!   Written by  G. Gaigalas                                        *
!   Transform to fortran 90/95 by G. Gaigalas       December 2012  *
!   The last modification made by G. Gaigalas       October  2017  *
!                                                                  *
!*******************************************************************
!
!-----------------------------------------------
!   M o d u l e s
!-----------------------------------------------
      USE vast_kind_param, ONLY: DOUBLE
      USE CONS_C,          ONLY: ONE
      USE m_C,             ONLY: JLIST, JJQ1, JJQ2
!-----------------------------------------------
!   I n t e r f a c e   B l o c k s
!-----------------------------------------------
      USE diaga1_I
      USE diaga2_I
      USE diaga3_I
      USE diaga4_I
      IMPLICIT NONE
!-----------------------------------------------
!   D u m m y   A r g u m e n t s
!-----------------------------------------------
      INTEGER, INTENT(IN)  :: JA1,JA2,JA3,JA4,K1,K2,K3,K4,KA,IRE
      INTEGER, INTENT(OUT) :: IAT
      REAL(DOUBLE), INTENT(OUT) :: RECC
!-----------------------------------------------
!   L o c a l   V a r i a b l e s
!-----------------------------------------------
      INTEGER      :: IA4, IB4, IJ1, IJ2, IJ3, IJ4, ISKR
      REAL(DOUBLE) :: S, S1, S2, S3, S4, RE
!-----------------------------------------------
      IJ1=JLIST(JA1)
      IJ2=JLIST(JA2)
      IJ3=JLIST(JA3)
      IJ4=JLIST(JA4)
      S1=JJQ1(3,IJ1)
      S2=JJQ1(3,IJ2)
      S3=JJQ1(3,IJ3)
      S4=JJQ1(3,IJ4)
      S=S1*S2*S3*S4
      RECC=ONE/DSQRT(S)
      IA4=JJQ1(3,IJ4)-1
      IB4=JJQ2(3,IJ4)-1
      RECC=RECC*DSQRT(DBLE(IA4+1))/DSQRT(DBLE((K4+1)*(IB4+1)))
!
      ISKR=JA3-JA2
      IF(ISKR > 1) THEN
        IAT=0
        CALL DIAGA3(JA2,JA3,KA,IRE,IAT,RE)
        IF(IAT == 0)RETURN
        RECC=RE*RECC
      END IF
!
      ISKR=JA4-JA3
      IF(ISKR > 1) THEN
        IAT=0
        CALL DIAGA3(JA3,JA4,K4,IRE,IAT,RE)
        IF(IAT == 0)RETURN
        RECC=RE*RECC
      END IF
!
      IAT=0
      CALL DIAGA2(JA1,JA4,K4,IRE,IAT,RE)
      IF(IAT == 0)RETURN
      RECC=RE*RECC
!
      IAT=0
      CALL DIAGA4(JA1,JA2,K1,K2,KA,IRE,IAT,RE)
      IF(IAT == 0)RETURN
      RECC=RE*RECC
!
      IAT=0
      CALL DIAGA4(JA2,JA3,KA,K3,K4,IRE,IAT,RE)
      IF(IAT == 0)RETURN
      RECC=RE*RECC
      IF(JA1 == 1.AND.JA2 == 2)RETURN
!
      IAT=0
      CALL DIAGA1(JA1,K1,IRE,IAT,RE)
      IF(IAT == 0)RETURN
      RECC=RE*RECC
!
      ISKR=JA2-JA1
      IF(JA1 == 1)ISKR=JA2-1-JA1
      IF(ISKR <= 1)RETURN
      IAT=0
      CALL DIAGA3(JA1,JA2,K1,IRE,IAT,RE)
      RECC=RE*RECC
      RETURN
      END SUBROUTINE RECO4

max_stars_repo_name: sylas/grasp-continuum

max_issues_repo_name: sylas/grasp-continuum

max_forks_repo_name: sylas/grasp-continuum


text:
Elite Dance Company (EDC) is a competitive and performancebased dance team at UC Davis. We incorporate several styles of dance including Ballet/Pointe, Jazz, Contemporary/Lyrical and tap into our routines. We perform at various UC Davis events throughout the year, but spend most of the year preparing for our annual Spring showcase in May in which members put together several pieces of different styles to perform.

Our first annual Spring show (which we hosted with STAND, an antigenocide coalition on campus) was a HUGE success with a great turnout of about 300 people! We were able to put on a spectacular show of nine different EDC performances and have guest performances from various other teams on campus. EDC and STAND also held an afterparty at Agave which turned out to be another success!  We will be hosting a show every May so make sure to come out to support EDC and enjoy a great show!